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ABSTRACT 

V 

Microcomputers  add  a new  dimension  to  modern  com* 
puters. v Their  small  size  and  price  make  them  economic 
for^ppil  cations  which  seemed  impractical  a few  years  ago. 

^However,  since  microcomputers  are  not  well-suited  to 
running  large  compilers,  the  medium  of  communication 
between  the  programmer  and  micros  has  traditionally  been 
assembly  language. 

The  computer  software  Industry  realized  some  time  ago 


that  the  most  effective  means  of  generating  a software 
system  is  by  using, a compiler  capable  of  communicating 


clearly  both  with  the  programmer  and  the  computer  hard- 
ware. Such  compilers  are  necessarily  large,  and 

are  generally  used  to  create  machine  oode  for  the  big 
machines  they  run  on.  However,  by  replacing  a compiler's 
code  generator  with  the  code  generator  of  a small  machine, 
a compiler  oan  run  on  the  large  machine  and  generate  code 
for  a small  one,  and  the  size  limitation  problem  is  elim- 
inated. 

This  thesis  presents  Just  such  a cross-compiler. 


The  large  machine  is  the  CDC  6000  and  the  very  capable 


oompller  is  the  SIMPL  compiler  written  by  Victor  R.  Basill 


and  Albert  J 


Turner.  The  microcomputer  chosen  as  the 
i for  th^^ode  generated  is  the  Intel  8080 
a well  known  mloro  and  typical  of  the  architecture  and 
Instruction  capability  of  microcomputers.  The  cross- 
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compiler  created  by  adding  the  new  code  generator  to 
SIMPL  Is  called  SIMPL-M  and  the  code  generator  Itself  is 
called  CODGEN. 

CODGEN  was  created  using  the  CDC  version  of  SIMPL-T 
written  by  John  G.  Perry,  Jr.  However,  since  CODGEN  is 
written  in  SIMPL,  and  therefore  is  independent  of  the 
CDC  hardware  and  software,  it  can  easily  be  transported 
to  other  SIMPL  packages  such  as  the  UNI VAC  1108  version. 
Purther,  CODGEN  has  been  written  with  enough  flexibility 
that  it  could  be  used  as  a guideline  in  the  extension  of 
SIMPL-M  to  other  microcomputers. 

SIMPL-M  utilized  separately  loaded  Input/ Output 
modules  rather  than  a system  library.  In  this  way  I/O 
modules  can  be  permanently  loaded  into  the  microcomputer's 
PROM  memory  for  use  by  SIMPL-M' 8 external  subroutine 
features. 

SIMPL-M  has  been  verified  in  that:  1)  a significant 
but  not  sufficient  program  named  had am  has  been  compiled 
on  the  CDC  Cyber  172,  2)  a paper  tape  of  the  Intel  machine 
code  was  punched,  3)  the  tape  was  loaded  on  the  UVA  Modular 
System  Intel  8080,  4)  the  program  executed  successfully. 
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t . Introduction 


Microcomputers  are  a new  and  powerful  addition  to  mod- 
ern computing  technology.  They  can  be  distinguished  from 
other  computers  In  that  many  computing  functions  are  Incorp- 
orated Into  one  Integrated  circuit.  This  allows  computing 
with  a minimum  Investment  of  a CPU  and  a power  supply. 

▲dam  Osborne  describes  a microcomputer  by:  "A  microcomputer 
Is  a loglo  device.  More  precisely,  It  is  an  indefinite  var- 
iety of  logic  devices,  Implemented  on  a single  chip;  and 
because  of  the  microcomputer,  logic  design  will  never  be  the 
same  again”  (7,  p. t-1). 

A microcomputer  Is  not  very  useful  by  Itself.  Data  and 
commands  must  be  transmitted  In  and  out;  In  other  words, 
some  form  of  communication  between  the  user  and  the  micro- 
computer must  be  established. 

One  device  that  must  be  added  by  a micro  user  Is  some 
sort  of  data  storage  device.  This  can  be  a teletype  with 
paper  tape  capability,  a mass  storage  device  such  as  a mag- 
netic tape  or  disk  drive,  or  one  of  the  many  forms  of  memory 
available  to  the  micro  user. 

The  choice  of  which  storage  device  to  use  is  generally 
determined  by  user  needs  and  budget.  Often  a small  system 
is  established,  and  then  expanded  as  greater  needs  and 
resources  are  realized. 


Thus  a microcomputer  system  is  tailored  by  the  user 
to  his  requirements,  usually  with  little  concern  as  to  how 
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his  system  complies  with  other  micro  systems.  While  this 
flexibility  Is  an  asset  which  makes  micros  useful  to  many 
users.  It  puts  a great  demand  on  the  programmer  since  each 
system  can  vary  widely  In  configuration  and  capability. 

One  good  way  to  program  such  a system  Is  In  the 
machine's  own  language  since  this  language  Is  tailored  to 
the  specific  requirements  of  the  computer's  hardware.  Many 
microcomputer  users  program  small  applications  In  machine 
language  since  It  requires  a minimum  Investment  In  storage 
space  and  Input/output  capability.  However,  machine  lan- 
guage coding  Is  tedious  and  Impractical  for  large  programs. 

The  next  higher  language  level  Is  assembly  language. 

Assembly  language  Instructions  correspond 
exactly  with  machine  language  Instructions^  but  are  more 
Intelligible  to  the  user.  Most  microcomputers  presently  In 
use  are  programmed  with  assemblers.  Those  who  are  familiar 
with  microcomputer  assemblers  are  also- probably  familiar 
with  the  technique  of  assembling  a program  on  a large  compu- 
ter and  then  transmitting  the  machine  code  output  to  the 
micro.  This  oould  be  called  cross-assembling  since  one  mach- 
ine Is  used  to  generate  the  oode  which  another  machine  exe- 
cutes. The  term  cross-compiling  as  used  later  In  this  text 
is  comparable  to  oross-assembllng. 

Still  a higher  level  language  Is  available  to  the 
micro  user.  Compilers  are  written  In  languages  which 
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are  highly  readable  and  logical  to  the  programmer.  Also 
compilers  are  generally  designed  to  fill  a user  need;  that 
is,  the  compiler  satisfies  the  requirements  of  the  user 
first,  and  then  generates  whatever  machine  code  is  necessary 
to  satisfy  the  requirements  of  the  machine.  For  this  reason, 
a compiler  may  not  produce  machine  code  which  is  compacted 
to  the  minimum  number  of  instructions  which  will  do  the  Job. 
The  luxury  of  writing  a program  in  compiler  language  is  paid 
for  by  less  than  optimal  machine  code. 

The  benefits  of  high-level  languages  far  outweigh  the 
weaknesses.  Some  of  these  benefits  are: 

1 ) Compiler  languages  are  easier  to  learn  and  use 
than  lower  languages. 

2)  Compiler  languages  are  problem-,  rather  than  machine- 

oriented.  ' 

3)  Compilers  can  be  made  to  be  transportable  from 
one  machine  to  another. 

4)  Good  compiler  languages  are  self -documenting  and 
have  extensive  error  checking  capability.  ' 

But  these  benefits  present  still  another  problem  other  than 
less  than  optimal  machine  code.  The  more  powerful  the  comp- 
iler, the  larger  it  must  be.  Compilers  are  Impractical  for 
most  micro  users  sinoe  they  require  much  more  storage  than 
many  machines  can  address.  Therefore  oompller  execution  is 
slow  due  to  input  and  output  of  the  memory  loads  required  by 
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such  large  programs. 

The  obvious  answer  to  the  problem  of  executing  a large  1 

program  which  Is  to  produce  machine  code  for  a small  comp- 
uter Is  to  Implement  a cross-compiler  similar  to  the  cross- 
assembler  previously  mentioned. 

This  thesis  presents  just  such  a cross-compiler.  The 
compiler  chosen  to  convert  to  a cross-compiler  Is  SIMPL-T,  < 

written  by  V.  R.  Basil!  and  A.  J.  Turner  of  the  University 
of  Maryland.  They  describe  SIMPL-T  by:  "SIMPL-T  Is  a mem- 
ber of  a family  of  languages  that  are  designed  to  be  rela- 
tively machine  Independent  and  whose  compilers  are  relatively 
transportable  onto  a variety  of  machines.  It  Is  a procedure 
oriented,  non-block  structured  programming  language  that  was 

designed  to  conform  to  the  standards  of , structured  program- 

, « 
mlng  and  modular  design."  (1,  p.v)  , 

SIMPL-T  was  chosen  because  It  is  a very  capable  lang- 
uage, and  yet  It  Is  "simple"  in  that  Its  only  data  structure 
is  the  one-dimensional  array.  Also  It  allows  three  types  of 
data:  integer,  string,  and  character.  For  a complete  j 

description  of  SIMPL-T  see  reference  (1). 

The  new  language  created  by  converting  SIMPL-T  to  a 
cross-compiler  has  been  designated  SIMPL-M  (for  micro). 

Some  features  of  SIMPL-T  such  as  recursive  procedures  and 
string  data  type  have  not  been  implemented  in  SIMPL-M  since 
they  were  judged  impractical  for  microcomputers.  However, 
since  the  SIMPL-T  compiler  itself  still  has  the  potential  of 
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providing  these  features,  it  is  feasible  that  they  can 
be  added  in  the  future.  A complete  list  of  SIMPL-M  restric- 
tions is  listed  in  reference  (2). 

SIMPL-T,  like  most  good  compilers,  has  a modular  design. 
It  is  made  up  of  the  following  basic  modules;  1 ) Scanner, 

2)  Parser,  3)  Code  Generator.  The  SIMPL-T  compiler  can  be 
made  to  generate  machine  code  for  virtually  any  machine 
by  first  implementing  it  on  a host  machine,  and  then  replacing 
module  3 with  a code  generator  for  the  new  machine.  This 
requires  no  alteration  to  the  existing  compiler  whatsoever 
beyond  replacing  the  code  generator. 

SIMPL-T  was  originally  Implemented  on  the  UNIVAC  1108 
computer.  Since  this  project  was  accomplished  at  the 
University  of  Maryland,  the  first  obstacle  was  to  transfer 
SIMPL-T  to  UVA' s CDC  Cyber  172.  Fortunately,  John  Perry  of 
Dahlgren  Labs,  Va.  has  already  Implemented  SIMPL-T  on  the 
CSC  6000  (9)  and  he  provided  a copy  of  his  program  for  this 
project.  This  compiler  has  been  brought  up  on  the  UVA 
Cyber  and  can  be  run  using  the  procedure  outlined  in 
Appendix  V. 

The  next  and  greatest  obstacle  was  to  decipher  the 
documentation  of  Perry's  compiler  in  order  to  determine 
what  information  the  SIMPL-T  compiler  modules  pass  to  the 
code  generator  module.  A large  part  of  this  paper  is 
dedicated  to  the  documentation  of  how  SIMPL-T  communicates 
with  its  code  generator  in  order  to  remove  this  obstacle. 


4 


\ 


6 


The  choice  of  which  microcomputer  to  chooBe  as  a 
target  machine  for  the  cros8-comPHer  was  easy.  The 
Intel  8080  is  representative  of  the  capabilities  of  many 
micros  and  has  been  used  as  a standard  for  many  newer  ones. 
Adam  Osborne  (8,  p.  4-1)  states  that;  "The  8080A  is  the 
most  widely  known  of  the  microcomputers  (described  in  this 
chapter);  as  such,  it  becomes  the  frame  of  reference  in 
many  people's  minds  as  to  what  a microcomputer  should  be. 
...the  8080A  was  designed. .. at  a time  when  no  definable 
microcomputer  user  public  had  established  itself... 

"The  success  of  this  microcomputer  is  due  either  to  the 
farsighted  genius  of  its  designers,  or  to  the  fact  that 
the  power  of  most  microcomputers  so  overwhelms  the  needs 
of  microcomputer  applications,  the  CPU  design  becomes 
almost  Irrelevant  when  compared  to  product,  costs  and 
product  availability."  (8,  p.  4-1 ) 

Although  SIMPL-M  has  been  Implemented  for  the  Intel 
8080  only,  it  is  intended  to  be  flexible  enough  to  be 
applicable  to  other  micros. 

The  SIMPL-M  cross-compiler  is  the  SIMPL-T  compiler 
modified  with  a replacement  code  generator  module  CODGEN. 


■v.  «■ 


The  CODGEN  module  is  Itself  written  In  SIMPL-T  and  Is 
compiled  separately  from  the  rest  of  the  SIMPL-T  package. 
Once  it  has  beeL  compiled  and  assembled  into  CDC  machine 
code,  it  is  merged  into  the  rest  of  the  SIMPL-T  package 
at  load  time.  The  resulting  absolute  binary  core  image  is 
catalogued  as  SIMPL-M.  Due  to  the  large  size  of  the  total 
package,  six  levels  of  overlays  are  required  for  the  final 
load.  A complete  description  of  the  process  to  compile, 
overlay,  load,  and  catalog  SIMPL-M  is  given  in  Appendix  IV. 
This  thesis  is  intended  to  document  the  code  generator 

t 

CODGEN  as  it  is  presently  written,  to  act  as  a guide  in 
future  changes  to  CODGEN,  and  to  clarify  the  communication 
process  between  the  SIMPL-T  compiler  and  its  code  generator. 
A user's  manual  for  SIMPL-M  has  been  written  which  will  be 
changed  as  SIMPL-M  is  updated  (reference  2). 

2.  Communication  between  SIMPL-T  and  the  SIMPL-M  Code 
Generator  - CODGEN 

As  we  have  noted,  SIMPL-T  is  made  up  of  three  basic 

i 

modules;  1)  Scanner,  2)  Parser,  and  3)  Code  Generator. 

Due  to  the  large  size  of  the  compiler,  these  modules  are 
not  resident  in  the  Cyber  memory  all  at  once.  Instead,  a 
driver  program  and  a symbol  table  array  stay  fixed  in  memory, 
and  the  modules  are  swapped  in  and  out  in  sequence. 

Figure  1 is  a conceptual  flow  chart  of  the  SIMPL-M  system. 
Some  of  the  compiler's  features  have  been  omitted  or  altered 
for  clarity. 
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The  scanner  examines  the  entire  source  deck  and  passes 
the  Input  to  the  parser  In  the  form  of  tokens.  The 
parser  analyzes  the  tokens  and  generates  quads  which  It 
passes  to  the  code  generator.  These  quads,  the  Initial 
data  file,  and  the  symbol  table  array  contain  all  the 
Information  necessary  for  the  code  generator  to  produce 
machine  code  for  the  target  machine  (the  Intel  8080  In 
the  case  of  SIMPL-M). 

As  seen  In  Figure  1,  CODGEN  receives  Input  from  the 
S$QUAD  file,  the  SYMTAfi  array,  and  the  S$DATA  file,  tfe 
will  discuss  each  In  turn. 

2.1  Quad  File  S&QUAD 

SIMPL-T  passes  Information  to  the  code  generator  In  an 
Intermediate  language  called  quads.  When  the  code  generator 
takes  over,  all  the  quads  have  been  defined  and  have  been 
stored  In  the  external  file  S$QUAD.  Each  quad  has  an  ID 
number  followed  by  optional  Integer  values  according  to 
the  number  of  quad  parameters  required.  Array  NQ  contains 
a code  number  which  signals  PROC  NQUAD  (VIII,  603)*  to  read 
zero  or  more  quad  parameters. 


*Where  appropriate,  specif lo  procedures  In  this  text 
will  be  followed  by  the  Appendix  number  of  a listing  and 
a line  number. 
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2.1.1  Quad  Format 

A quad  that  would  represent  an  operator,  such  as  +, 
has  the  following  sequence  In  SfQUAD: 


AFLAG 


B7LAG 


RFLAG 


Where  ID  is  the  number  7;  AFLAG,  BFLAG,  and  RFLAG  tell  the 
type  of  entry  to  follow,  and  A,  B,  and  R fields  are  either 
1)  pointer  to  SYMTAB,  2)  a temporary  number,  3)  an  immediate 
value. 

The  quad  flags,  AFLAG,  BFLAG,  and  RFLAG  must  be 
logically  anded  with  the  following  values  to  determine  how 
a corresponding  field  should  be  handled: 

Quad  Mask  Type 

1 Temporary 

2 SYMTAB  Array  Pointer 

3 Immediate 

Unfortunately,  these  masks  do  not  define  all  possibilities 
for  quad  values.  A complete  breakdown  can  be  obtained  using 


the  algorithm  defined  by  PUNO  LABEL  (VIII,  775) 


2.1.2  Quad  Interpretation 


The  quads  themselves  can  be  regarded  as  macro  lnstruc 
tlons.  For  example,  the  statement 


LOST 


generates  the  quads: 


LINE 


OAT 

TEMPI 

TEMP2 


SAT 

LOST 


TEMPI 

TEMP2 

DOG 


Appendix  III  lists  typical  quad  sequences  for  SIMPL-M 
statements. 


2.2  Symbol  Table  Array  SYMTAB 


The  symbol  table  SYMTAB  is  a collection  of  inter- 
related arrays  maintained  by  the  SIMPL-T  compiler.  All 
identifier  names,  constant  values,  PROC  (procedure)  names, 
local  variable  names,  parameter  names,  intrinsic  names,  and 
lcey  word 8 ere  contained  in  these  arrays. 


Discussion  of  the  symbol 

table  will  be  limited  to  only  thoee  parts  which  require 
referenolng  by  CODGEN.  A more  exhaustive 

discussion  of  the  symbol  table  is  contained  in 
reference  (9). 


I 
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The  symbol  table  entries  consist  of  three  or  more  words 
which  a*e  formatted  *fter  the  UNIVAC  1108  36-blt  word!  On 
the  CDC  Cyber,  this  means  the  least  significant  18  bits  form 
the  right  half-word,  the  next  18  bits  form  the  left  half- 
word, and  the  rest  of  the  CDC  60-blt  word  Is  all  zeroes: 


24  Zeroes 


Left  Half 


Right  Half 


59 


36  35 


18  17 


0 


This  configuration  leaves  24  unused  bits  In  the  CDC  word; 
however,  by  keeping  the  original  format,  the  compiler  retains 
Its  portability  to  machines  with  smaller  word  size. 

Entries  of  similar  type  In  SYMTAB  are  linked  by  pointers 
which  make  up  a type  chain.  The  entry  in  each  chair.  Is 
passed  to  CODGEN  via  an  external  pointer.  . For  example,  all 
constants  are  linked  by  a chain  and  the  first  entry  Is 
pointed  to  by  FCPTR.  The  next  three  sections  discuss  the 
three  type  chains  used  by  CODGEN. 


j 
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2.2.1  Uninitialized  Globals  - PROC  ALLOC G LOB ALS 

The  first  symbol  table  type  examined  In  CODGEN  Is 
uninitialized  globals.  All  globals  are  linked  In  SYMTAB  by 
the  global  ohaln.  PROC  ALLOCGLOBALS  (VIII,  617)  examines 
the  entries  in  the  global  chain  and  dedicates  a memory 
location  to  Uninitialised  globals  only  (initialized  globals 
are  dealt  with  In  PROC  ALLOCDATA  (VIII,  663)). 

As  PROC  ALLOOGLOBALS  traverses  the  global  chain,  it 
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declared  as: 

EXT  STRING  FUNC(INT,  INT)  (VIII,  12) 

The  type  of  any  symbol  table  entry  Is  obtained  by  per- 
forming a logical  AND  with  a bit  mask  and  the  SYMTAB  des- 
cription word.  PROC  LABEL  (VIII,  775)  demonstrates  the  use 
of  the  following  binary  masks: 


sxmoask 

Type 

i 

Integer 

mi 

PUNO 

1Z13* 

Array 

1 Z 19 

Constant 

1Z31 

Initialized  (S$DATA  entry) 

1 Z22 

Parameter' 

1Z25 

Reference  PaCremeter 

2.3  Bll  SIDATA  - Initialized  Globals  - PROC  ALLOCDATA 

Initial  values  assigned  to  globals  are  stored  In  file 
S$DATA*  PROC  ALLOCDATA  (VIII,  663)  searches  this  file  and 
stores  initial  values  in  the  memory.  The  memory  address 
is  then  stored  In  the  SYMTAB  entry  for  the  globals  If  ALLOC- 
DATA encounters  an  initial  value  greater  than  the  maximum 
allowable  Integer  (presently  127),  the  Initial  value  is 


*As  in  SIMPL-T,  the  NZnn  notation  denotes  there  are 
deolmal  no  serosa  following  the  number  N. 
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assumed  to  be  an  address.  In  this  case,  the  value  itself  is 
stored  in  the  SYMTA3  address  field,  and  no  memory  location 
is  allocated.  This  feature  is  necessary  for  input/output 
as  it  is  presently  defined. 

Figure  5 shows  the  S$DATA  representation  of  integers 
and  Figure  6 shows  the  representation  of  arrays. 


r 

r 

r 

r 

r 
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gUe  S-JDATA 


Figure  5.  Fils  SlDATA  Integers 
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3.  Machine  Code  File  COMP AS 

Intel  8080  machine  code  Is  output  to  external  file 
COMP AS  In  string  format.  Each  call  to  external  PROC  WRITEC 
outputs  a string  record  to  COMP AS  (Appendix  I,  next  to  last 
page),  and  puts  an  EOR  mark  at  the  end.  The  header  LDR  and 
delimiter  ; are  also  written  to  COMPAS  as  required  by  the 
UVA  Modular  System  (2). 

3. 1 Sequential  Code  - PROC  WRITCODE 

Intel  machine  code  for  each  Instruction  Is  Included  In 

the  assembly  code  string  declarations  (VII  47).  During 

* 

code  generation.  Immediate  values  and  addresses  are  con- 
catenated to  this  and  the  resulting  string  Is  passed  to 
PROC  WRITCODE  (VII  , 843).  WRITCODE  considers  all  input 
to  It  sequential  and  Increments  the  memory  pointer  accord- 
ingly. The  machine  code  Is  removed  from  the  Input  string  as 

\ 

a substring,  and  this  Is  concatenated  to  a buffer  string 
(CODEEU?).  When  the  buffer  becomes  full,  or  It  is  to  be 
flushed  (see  section  4.2),  the  buffer  is  output  to  file 
COMPAS. 

3.2  Mon-Seouentlal  Code  - PROC  WRITBACK 

Forward  relerences  In  C0D6EH  are  kept  In  the  SAVE  stack. 
As  the  values  of  these  references  becomes  known,  they  are 
written  out  of  sequence  by  PROC  WRITBACK  (VII  , 882). 

WRITBACK  always  ohecks  to  see  if  the  oode  buffer  is  empty 
before  it  outputs  to  prevent  WRITCODB  from  writing  a dummy 

* * * . ^ i'  V#»' 

\ • * . *'  . * 

- - - 
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value  over  the  forward  reference.  If  the  buffer  is  non-empty 
then  It  1b  flushed  before  WRITBACK  outputs  the  reference. 

4.  Code  Generation  Messages 

Two  type 8 of  printed  output  are  available  from  CODGEN; 
optional  and  required.  Optional  output  Is  specified  on  the 
compiler  execution  card  as  an  L or  Q parameter  (see  refer- 
ence 2,  compiler  options). 

4. 1 Required  Output 

If  a start  load  address  was  specified  In  the  program 
then  It  Is  printed ''out  first  (the  default  start  load  address 
Is  zero).  Next  the  maximum  address  used  by  the  compilation 
Is  written,  and  finally  a start  execution  address  is  written. 
These  three  parameters  are  sufficient  to*  define  a compiled 
module  for  external  use.  • 

The  only  other  required  messages  are  errors  and  they 
are  delimited  bys 

>»>ERROR««  error  message  »»ERRQR«« 

Error  messages  contain  a source  line  number  where  appli- 
cable. 

4.2  Optional  Output 

' l / ■’*  / ' i : * 

Specifying  L as  a compiler  option  generates  Intel  8080 

\ 

assembly  oode~and  memory  addresses.  No  labels  are  generated 
sines  aotual  addresses  are  listed.  3ome  clarifying  comments 
have  been  added  using  * as  a delimiter. 
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Specifying  Q as  a compiler  option  prints  out  the  quads 
in  comment  format.  PROC  LABEL  (VII  ( 775)  determines  what 
type  A(  B,  and  R fields  are  by  examining  the  appropriate 
flags  and  SYMTAB  entries. 

5.  Input/ Output  and  Start  Load  Capabilities 

There  is  no  program  library  available , for  the  present 
version  of  SIMPL-M.  Instead,  there  are  facilities  to  call 
external  pre-loaded  routines  such  as  the  ones  usually  avail- 
able in  the  PROM  monitor  or  loader  of  a microcomputer. 

These  routines  are  called  by  PROO  EXTPROG  and  FUNC  EXT7UNC 

* 

(see  referenoe  2 , I/O).  EXTPROO  (VII  , 395)  and  EXTFUNC 
(VII  , 393)  are  reserved  words  within  CODGEN  only.  An 
external  procedure's  start  address  is  passed  as  a parameter 
so  that  any  number  of  pre-loaded  routines  may  be  utilized. 
Both  EXTPROC  and  EXTFUNC  require  that  the  subroutine  argu- 
ment be  passed  in  the  accumulator.  See  section  7 for  a 
more  thorough  explanation  of  SIMPL-M  I/O. 

STARTLOAD  (VII!  , 688)  is  another  CODGEN  reserved  word. 
When  it  is  encountered,  the  memory  pointer  is  set  to  its 
declared  value.  The  default  is  zero,  and  if  STARTLOAD  is 
declared  it  should  be  the  first  statement  in  a program. 

6.  Optimization  and  Verification 

Some  code  optimization  has  been  utilized  in  CODGEN. 

This  is  accomplished  with  a look-ahead  technique.  The  next 
quad  is  always  available  so  that  a temporary  is  not  pushed 
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Into  the  Intel  stack  if  the  A field  of  the  next  quad  is  a 
temporary.  Thus  the  temporary  is  held  in  the  accumulator 
to  avoid  a PUSH  command  followed  immediately  by  the  POP  com- 
mand. 

The  SIMPL-M  compiler  has  been  tested  only  in  that: 

1)  a significant  but  not  sufficient  program  was  compiled 
on  the  Cyber  172,  2)  a paper  tape  of  the  Intel  machine 
code  was  punched,  3)  the  tape  was  loaded  on  the  UVA  Modular 
System  Intel  8080,  4)  the  program  executed  successfully. 

The  test  program  HALAM  (I)  multiplies  the  8x8  Hadamard  matrix 
times  an  input  vector,  and  outputs  the  result.  Since  the 
matrix  was  known  in  advance  to  have  all  entries  either  +1 
or  -1,  no  actual  multiplication  is  performed. 

This  test  program  uses  many  of  the  capabilities  of  the 
SIMPL-M  compiler,  but  not  all  of  them.  For  this  reason, 

e 

SIMPL-M  cannot  at  this  time  be  considered  verified,  but  its 
verification  will  be  completed  when  time  permits. 

7.  Conclusion 

One  of  the  most  important  assumptions  underlying  this 
thesis  is  that  a 7-bit  Integer  is  reasonable  for  most  appli- 
cations of  the  Intel  8080.  The  8080  has  double  word  instruc- 
tions so  that  the  word  size  could  and  should  be  extended  to 
15  bits.  However,  if  all  Integers  in  SIMPL-M  are  to  be 
treated  as  15  bits,  then  the  efficiency  of  the  resultant  . 
machine  oode  will  drop  considerably  slnoe  16-bit  manipulations 

are  oumbersoae  on  this  maohlne.  For  this  reason,  the  addition 

% 


24 


of  extended  precision  to  SIMPL-M  must  be  treated  as  an 
optional  rather  than  a mandatory  feature  since  limited 
memory  size  will  probably  continue  to  be  Important  to 
8080  user 8. 

The  second  Important  assumption  Is  that  since  micro 

users  have  widely  varied  I/O  resources,  exhaustive 

library  facilities  are  out  of  the  question.  SIMPL-M  does 
not  have  a set  of  library  routines  which  are  loaded  with  the 
program  or  which  are  disk -resident  awaiting  a call  from  the 
system  loader.  Instead,  this  thesis  contends  and  demon- 
strates that  I/O  can  be  handled  by  accessing  preloaded 
routines  - particularly  those  routines  which  are  permanently 
resident  In  PROM.  Most  existing  systems  have  a monitor  with 
Its  I/O  routines  resident  In  PROM.  By  using  these  routines, 
they  need  not  be  loaded  each  time  they  are  «used,  plus  eaoh 
user  can  tailor  his  I/O  to  his  requirements  and  still 
Interface  with  SIMPL-M. 

The  best  way  to  demonstrate  how  SIMPL-M  performs  I/O 
using  pre-loaded  routines  Is  with  an  example.  The  program 
HALIM,  which  was  previously  mentioned.  Is  a good  example 
of  SIMPL-M  I/O.  HALAM  was  written  for  the  UVA  Modular 
System  which  has  v ery  basic  I/O  subroutines  and,  therefore 
muoh  of  the  program  Is  dedloated  to  handling  I/O.  More 
sophisticate^, I/O  oould  easily  be  accomplished  by  extending 
the  existing  PROM  routines.  The  notation  (In  ) used 
throughout  this  section  refers  to  line  numbers  In  the  HALAM 
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rputine  In  Appendix  I. 

The  UVA  Modular  System  has  a FROM  resident  monitor 
In  the  first  IK  of  address  space.  Note  that  HADAM’ s program 
load  starts  at  0000  (In  6).  Included  In  the  monitor  are 
some  limited  I/O  routines.  The  start  address  of  each  of 
these  routines  Is  declared  In  HADAM  from  In  12  through 
In  18  as  Integers.  As  mentioned  In  Section  2.3,  any  Initial 
value  greater  than  127  deolmal  Is  assumed  to  be  an  address. 

The  UVA  monitor  I/O  routines  assume  the  subroutine 

argument  Is  always  passed  In  the  accumulator  and  the 

* 

EXTPROC  and  EXTPUNC  facilities  (see  S«ctlon  5)  also  make 
this  assumption.  EXTPROC  and  EXTPUNC  are  key  words  within 
CODGEN  which  signal  the  code  generator  to  perform  a sub- 
routine call  to  the  address  passed  as  the  first  parameter. 

In  the  case  of  EXTPROC,  before  the  call  Is*  made,  the  accumu- 
lator Is  loaded  with  the  value  of  the  second  argument. 

In  the  case  of  EXTPUNC,  the  call  Is  made  and  the  returned 
accumulator  value  becomes  the  returned  function  value. 

Thus  in  92  loads  the  accumulator  with  an  ASCII  minus  and  per- 
forms a subroutine  call  to  location  HIOOA61  whloh  has  a pre- 
loaded  character  — print  routine.  Likewise,  In  71  performs 
a function  call  to  location  Ht00D9t  which  has  a pr«loaded 
character-read  routine.  The  value  returned  In  the  8000 
aooumulator~£hen  becomes  the  funotlon  argument  and  Is  com- 
pared wloh  ASCII  minus  In  the  IP  statement  (aotual  assembly 
and  machine  oode  for  this  statement  oan  be  found  under 


26 

line  71  in  the  assembly  listing  in  Appendix  1 )• 

By  filling  an  initialized  array  (In  43)  with  ASCII 
characters  and  inserting  the  character-print  call  in  a 
WHILE  loop  (In  59 )»  string  output  can  be  accomplished 
even  with  the  existing  primitive  constructs.  Printing  the 
8X8  Hadamard  matrix  is  relatively  simple  by  nesting 
PRIHTVECTQR  (In  85)  in  a WHILE  loop  (In  106)  and  using 
the  preloaded  print- two-hex-characters  routine  THCH0(ln  97). 

SIMPL-M' s interactive  capability  is  demonstrated  by 
QUERY  (In  113).  When  QUERY  is  called  (In  146),  it  asks  if 
the  previous  output  is  OK  and  then  inputs  a character 
(In  116).  QUERY  returns  TRUE  if  the  input  is  ASCII  N for  NO, 
or  FALSE  if  the  inpnt  is  otherwise.  The  output  created  by 
HADAM  as  it  executes  on  the  UVA  Modular*  System  Intel  8080 
is  the  last  page  of  Appendix  1.  • 

SIMPL-M' 8 capability  to  use  pre-loaded  subroutines 
will  be  expanded  as  the  need  arises.  The  next  obvious 
addition  will  be  a call  which  passes  an  address  and  an 
Integer  as  arguments  so  that  a preloaded  string  output 
routine  will  have  a string  start  address  and  a string  length 
to  work  with.  Once  all  combinations  of  external 
routine  execution  requirements  have  been  defined  and  im- 
plemented in  SIMPL-M,  any  new  or  existing  I/O  facilities  can 
be  handled  £&th  SIMPL-M  by  accessing  user  defined  procedures. 
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Appendix  I.  HAD AM  Listing 


/♦THIS  PROGRAM  DEMONSTRATES  PRE-LGAOEO  I/O  ROUTINES  IK  SIMPL-M.*/ 
/•TRANSFORM  ON  THE  VECTOR*  AND  PRINTS  OUT  THE  RESULT*/ 


6 

2 

a 
9 
10 
_ 11 
12 

~14 
_ 15  _ 
16 

17  _ 
IS 

_19 — 
20 

_ 21  _ 
22 
. 23 


24 

>4 

/•OTHER  GLOBALS*/ 

INT  N • 8.  / ♦ 31 7F  OF  MATRIX*/ 

26 

27 

TRUE  • 1*  FALSE  ■ 0 

26 

_ 29  . 

/•HADAMARO  MATRIX*/ 

INt  ARRAY  HC64J  ill.  1.  1.  1.  1.  1.  1.  1. 

30 

XI 

l»”l»  1»-1*  1,-1,  1,-1, 

32 

33 

1*-1»-1*  I*  1,-1, -1.  1, 

1,  1.  1.  1. -1,-1. -1,-1. 

34 

35 

1»-1»  l,-l»-l,  1,-1*  1, 

36 

37 

1,-1,-1,  1,-1,  1,  1,-1  ) 

38 

39 

/•INPUT  OATA  ANO  OUTPUT  RESULT  VECTORS*/ 

INT  ARRAY. OATA (81, .RESULT (81 

40 

41 

/‘ASCII  MESSAGE  ARRAYS*/  _ 

42 

43 

/•CR»LF»LF»LF»LF*  H,  A,  0,  A,  M,  A,  R,  0, 
TNT  ARRAV  ME AOER 174 1 a 1 1 1 . t A . 1 0 . 1 A . 1 A . 7? . 64 , 68 . 64 . 77. 64 . 82 . *8. 

# 

M, 

17. 

A,*/ 

65. 

44 

45 

/♦  T,  R,  I,  X,CR,LF,LF,LF*/ 
84,82,73,88,13,10,10.10), 

46 

47 

/*CR,LF,LF,  0,  K,QS,  , (,  N,  •*  N,  0,  1,  */ 

OK (14) •113, 10, 10, 79, 75, 63, 32, 40, 78, 61, 78. 79, 4 1,321, 

48 

40 

/♦CR» IF » IF » I,  N,  P,  U,  T,  , V,  E,  C,  T, 

INMESS lltlillli 1A. 1A.7 S.7A.RA. A4.A4. 17. •6.60.67.84. 

0,  R, 
70. >2. 

CR»*/ 

50 

51 

/•IF,LF*/ 

10,10J,_  - • .....  ... 

52  /*CR,LF,LF,  **R»  E,  S,  U»  l*  T,CR»LfYlF‘/ 

J* AUIUtili  1 2i_!_LL  JiAfl/JL  QjJ2j  AIiJIjlU/ JAulW  , 1 3,10  *1 0l_ 


INT  STARTLOAO  ■ Ht04007 


EXT  INT  FUNC  EXTFUNC ( INT I 

_EXLPROC.EXTPROC(INT,INT.) 

_/*EXl£RNAL. SUBROUTINE.  AOORESS  DECLARATIONS*/  

INT  CRLF  ■ HtOlSlt,  /*PR INT  CARRIAGE  RETURN*  LINE  FEED*/ 

CHQUI — *— H100  A6X» A*PR  INI-ONE- ASCII— CHARACTER*./ 

CHIN  • Ht0009t«  / ♦ INPUT  ONE  ASCII  CHARACTER*/ 

DIGOUT  • HT01437,.  /‘OUTPUT  ONE  HEX  CHARACTER*/ 

GEfA  • Ht0167t*  /*INPUT  ONE  HEX  CHARACTER*/ 

J HC H 1 — «_H *0153 t» — / * INPUT  TUO-NEX-CHARACTERS*/ 

THCHO  ■ Ht0132*  /‘OUTPUT  TWO  HEX  CHARACTERS*/ 


/‘ASCII  CHARACTERS*/ 

INT MINUS—*.  HT  201* BL  ANK_5_H*  2Qt.it l£R0_£_Ht30J_*. 

COMMA  • Ht2Ct,  NCHAR  ■ 78 


ms  paw  is  bust  quality  mOMSi 
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RROC  RRINK1NT  ARRAY  OUT#  INT  LOUT) _ 

INI  l VAR 
l IV AR  I*  0 

1 WHILE  l VAR  <>  l CUT  DO 

2  CALL  EAT FRCC (CHOU T, OUT!  IVAR 1 1 ..  . _ ...  

I IVAR  I • IVAR  ♦ 1 

EN0/*WHIL£*/ 

1  RETURN 

RROC  I NVECTOR I INT  ARRAY  VECTOR! 

/•INRUT  REOUIRED  IS  11  ♦ OR  - OR  BLANK  2)  2 HEX  CHAR  NUHBER  ♦ / . 
INT  CNT, COL, COHRL, C0H,LCL 

.1 CALL.  RR  INT  I INMESS, 18 1 

I CNT  It  N COL  !•  0 

1  WHILE  CNT  00  _ 

2 CON  I • 0 COHRL  H FALSE 

2 . IF  EX  TFUNC I CHIN ! • NINUS  THEN  

1 COHRL  I • TRUE 

END  

2 . LCL  I*  EXTFUKCITHCHI) 

2 . . IF  LCL>127  THEN  RETURN  ENO 

2 IF  CCNPL  THEN  LCL  *■  f.C.lCL)  ♦ 1 /*2S  COMPLEMENT*/ 

3 COHRL  !•  FALSE 
ENO 

.2 VFC  TCR  (C  CL  ! _!  «_ACL 

2 COL  i«  COL  ♦ 1 CNT  « • CNT  - 1 

2 IF  CNT  THEN  CALL  EXTRROC ( CHOUTi COMMA!  END 

END/*WHIL.E*/ 

I RETURN  ...  

MOC  PR  1NTVECT0R11MT  ARRAY  VECTOR*  INT,  RTR1 

INT  CNT, LCL 

1 CNT  I ■ N , _ _ _ 

1 CALL  EXTRROC (CRLFtOI 

1 . . WHILE  CNT  00  . 

2 LCL  »■  VEC TOR (RTR I 

-2 Ii_ACL.A.ht80t.THEN 

3 CALL  EXTPROCICHOUT, MINUS! 

3  LCL  li  (.C.LCLI  ♦ 1 /*2S  COMPLEMENT*/  

ELSE 

3  ._  ...  CALL  EXTRRCCKHOUT, BLANK!  

ENO 

2 CALL  EXTPROC  LTHCHOiLCL i 

2 IF  CNT  THEN  CALL  EXTPROC (CHOUT, COMMA  I ENO 

2 . CNT  «•  CNT  - l RTR  «•  RTR  ♦ 1 . „ . _ 

ENO/*WH I LE  */ 

1 RETURN  ...  

RRCC  PRJNTHATRI  X 


10  A 

INT  RTR,  RCN1 

10) 

AO 

1 

RCNT  !•  N RIR  li  0 

106 

A2 

1 

WHILE  RCNT  00 

1C7 

A3 

2 

CALL  RRINTVECTOR(H,RTRI 

108 

AA 

2 

RCNT  RCNT  - 1 

100 

A3 

JL 

RTR  li  RTR  * N 

110 

EN0/*VHIIE*/ 

111 

_ ._A6 

i_ 

RttURN 

! 

I 

I 

[ 


THIS  PACE  IS  BEST  QUALlT?  PRACTICABLE 
ISOM  COPY  FURNISHED  TODDC 


1-3 


116 

4# 

A 

i r EXT  FUNC ( Lh IN)  • NCHAR  THEN  RE  TURN! F ALSE  I 

117 

...SO 

2 

ELSE  KETURMT  TRUE ) 

- • 

— 

118 

END 

119 



. - 

— 

120 

PROC  transfcrmi INT  ARRAY  OATAV.  INT  ARRAY  RESULTV) 

121 

Jfu T pCNTrppurfrkilPl  f 1 .PTR.rriL 

122 

51 

1 

RCNT  1 • N ROW  «■  0 PTR  «•  0 

123 

124 


54 

55 


WHILE  RCM  00 

LCL  »•  0 CCNT 
WHILE  CCNT  00 


l*  N COL  *■  0 


126 

59 

3 

IF  HTPTRT  « -1  THEN 

12? 

40 

LCL  »•  LCL  - DAT  A VI  COL  1 

12*  ~ 

ELSE 

129 

61 

4 

LCL  ••  LCL  ♦ OATAVICOL ) ...  ....... 

130 

ENO 

131 

62 

3 

CCNT  «■  CCNT  - 1 

132 

63 

3 

PTR  i-  PTR  ♦ 1 COL  *■  COL  * 1 

133 

FNO/AUHILF*/ 

134  " 

65 

T 

RE  SUL  TV (ROW  1 «•  LCL 

135  „ 

. 66... 

2 

RCNT  «■  RCNT  - l.  ROW  *■  ROW  ♦ 1 

136 

EN0/AWH1LE*/ 

137  .. 

. 6$  ._. 

1 

RETURN  . ■ . ...  - 

139 

140 


PROC  HAOANARO 

/* 1 PACE  OATA  PROCESSING  BY  HAOANARO  TRANSFORM/ 


141 

69  l 

. . CALL  PRINT (HEACLR#24I  — 

147 

70  1 

CALL  PRINTNATRIX 

143 

71  1 

WHIE  1 00 

144 

72  2 

CALL  IN VICTOR (OATAT 

145 

73  2 

CALL  P*lNTVfcCTORICATA>0) 

14t 

74  2 

IF  SUEPY  THIN  /‘INPUT  IS  CORRECT*/ 

147 

75  ..3 

. CALL  TFANSFCFH<OATA#RESULTI 

146 

76  3 

CALL  FR1NTICUTNESS, 12) 

149 

77  3 

CALL  PR1NTVCC!0R(RESULT#0) 

150 

END 

151 

EKO/*wHILE*/ 

152 

START  HAOAMARO 

77  STATEMENTS  TN  PROGRAM 

l FUNCTION#  6 PPOCEOURES 

AVERAGE  STATEMENTS  PER  PRGC/FUNC*.  11.0 


THIS  PACE  IS  BEST  QUALITY  PRACTICABLE 
PROM  COPY  FURNISHED  TO  DDC - 


-SHAT. 


* DECLARATION  OF  INITIALIZED  6L08ALS 

_10A0  AT  0*00 

* AOORESS  CALF 

_♦_*  ODR.ES  $_C  HOLU 

♦ AOORESS  CHIN 

_♦  AOORESS  0 1 GOUT 

* AOORESS  GETA 

♦ AOORESS  THCHI  

* AOORESS  THCHO 

*_  HI  NU.$ 

EOli  20 

♦ BLANK  _ 

EOU  20 

♦ ZERO  

EOU  30 

_*_CGMA 

EOU  2C 

_*  NCHAR 

EQU  *E 

♦ N , 

EOU  OS 

_P_ILUJ 

EOU  01 

• FALSE._ 

EOU  00 

_♦  ARRAY  H STARTS  AT. 0*03 

* ARRAY  HEAOER  STARTS  AT  0**S 

♦ ARRAY  OK  STARTS  AT  0*60 

♦ ARRAY  INHESS  STARTS  AT  0*6E 

_•  ARRAY  OUTNESS  STARTS  A1_0*8O 

* DECLARATION  OF  NON-INI TIALI ZED  GLOBALS 

• EXTFUNC  

EOU  00 

* ARRAY  OA TA_? TARTS  *T  0*(8P 

* ARRAY  RESULT  STARTS  AT  0*95 

1NG  - CONSTANT  OUT  OF  RANGE  ■ 128 

♦ Tine  95 

_♦  FROC  PRINT 


♦***  PROC  PRINT 

* LOCAL  LVAR 

0*90  EOU  _ OQ 

* VAL  PARK  LOUT 

0*9E  ECU  00  

* REF  PARK  OUT 

0*9F  EOU 0000 

* SAVE  RETURN  AOOR 

0*A1  POP  0 01  

•PUTVALUES'  IN"  PARKS 


0*C* 
0*C6 
0*C9 
. ' 0*CA. 
' 0*CD 
0*CE 
0*CF 


NVI  A if  00 

LX  I M 21  0*90  

NOV  N#  A 77 

♦ I INE  58  _ 

♦ WHILE  0 

<» LVAR  LOUT  TEMPI 

LX  I H 21  0*90 

. NOV  A#  N ...  7E  . 

L X I H 21  0*9E 

NOV  0»H  ...  56 

SUB  0 92 

_JZ ADR CA-OiCO 

NVI  A 3E  01 

♦ WHTEST  TENP1 

ORA  A 87 

JZ  AOR  CA  AAAA 

♦ LINE  59 

-•  CALL.-  EXTPROC 0_ 

♦ PARK  CHCUT  0 

♦ ARYLOC  OUT  LVAR  TEHPL 


NVI  8 
LX  I H 
NOV  C»N 
LHLO  AOR 
OAO  8 
NOV  C »N 
PUSH  8 
* PARK 


06  00 
21  0*90 
*E 

..  2A  0*9F_ 
09 
*E 
C 5 
TEKP1 


• PARK  ALREADY  ON  STACK 


0*00 

wnwt  r ii 

POP  8 

Cl 

0*01 

NOV  A>C 

79  

0*02 

CALL  AOR 

CO  00A6 

* LINE 

60 

• * 

LVAR  1 TEHP1 

0*05. 

LXI  . H 

_ 21  0*90 

0*08 

NOV  A » M 

7E 

0*09 

NVI  0 

16  01 

0*08 

ADO  0 

82 

♦ 1 • 

TEHP1  LVAR 

)*0C 

LXI  H 

21  0*90 

.NOV...  N» A 

♦ LINE 

• ENOWH 


.72 


0*  A2 POP  8 

0*A3  LXI  H 

6**8.  ,HOy_J«.C_ 

0*A7  POP  H 
0*A8  SHLO  AOR 


Cl 

21  0*9E~ 

_71 

El 

22  0*9F 


♦ LOAD  OUT  OF  SEOUENCE 

0*C2  EOU  0*E3 


0*E0  JNP  AOR  C3  0*82 

* LINE  62 

• RETURN  0 

0*E3  RETURN  C9 

• LINE  6* 

• ENDPPC 

* PROC  INVECTOR 


• PUT  RETURN  AjOR  BACK  ON  STACK 

0*A8 PUSH  0 05  _ 

• LINE  57 

• ta  0 LVAR 


•«»•  PROC  INVECTOR  *9** 

• LOCAL  LCL  

0*E*  EOU  66 

.•  LOCAL-CON 

0*E5  EOU  00 

LOCAL  CONPl 

0*16  EOU  00 


\ 

♦ 


IBIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
IRQ*  COPY  FURNISHED  XODDQ 
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04E8 

EOU 

00 

♦ REF  FARM  VECTOR 

0419 

EOU 

0000 

* SAVE  RETURN 

AOOR 

Q4EB 

PCP  0 01 

♦ PUT  VALUES 

IN  FARMS 

04  EC  ' 

POP  H El 

04E0 

SHLO  AOR  22 

04E9  . . 

♦ PUT  RETURN 

AOOR  BACK 

04F0 

PUSH  0 . 05 



♦ LINE 

♦ CALL. 

♦ FARM 


67 

HIM... 

INMESS 


LINE 

WHILE 


69 

0 


* WHILST  CNT 


0516 BOV.. 

* i » 


Mr* 77  _ 

FALSE 


COMF1 


0537  MOV  A » M 
0536  L X 1 H 
0536  MOV  MrA 

* LINE 

♦ ENDIF 


7fc 

21  04E6 
77 


73 


0532 


0S3C 


* LOAD  OUT  OF  SECUENCE 
EOU  ..  _ 0 5 3C 


04F  1 

LXl  H 

21 

046E 

04F4 

PUSH  H 

E5 

053F 

♦ FARM 

18 

0 

0542 

OAF  5 

MVI  C 

OE 

12 

04F7 

PUSH  6 

_ C5._ 

• ENOPRM 

0543 

04F6 

CALL  AOR 

CD 

04A1  . 

0546 

* LINE 

66 

C54  7 

♦ 1 • 

N 

- ..  CNT 

C 54  9 

04FB 

LX  I H 

21 

0405 

C54A 

04  F E . 

MOV  . A.M 

._  7E. 

... 

0540 

04FF 

LX  1 H 

21 

04  EB 

C54E 

0502 

MOV  Mr  A 

77 

C551 

♦ t« 

0 

COL 

0503 

MVI  A 

3E 

00 

055  3 

0505 

L X I H 

21 

04E7 

0554 

0506 

MOV  Nr  A 

77 

0509 

L X I 

H 

21 

C4E8 

050C 

MOV 

A.M 

7E 

0500 

ORA 

JZ 

A 

87 

0555 

050E 

AOR 

CA 

AAAA 

♦ LINE 

70 

• It 

0 

COM  - 

0511 

MVI 

A 

3€ 

00 

C5ib 

0513 

LXl 

H 

21 

04E  5 

0 55  6 

C55C 

0550 


05T7 

L X 1 

H 

21  0407 

051A 

MOV 

A.M 

7E 

C51B 

LX1 

H 

21  04E6  . 

CitC 

051E 

MOV 

Mr  A 

77 

0563 

* LINE  . 

71  

.1 

0564 

• CALL 

EXTFUNC 

TEMPI 

• FARM 

CHIN. 

o._ 

Oil  5 

051F 

CALL 

AOR 

CO  0009 

0567 

♦ ENOPRM 

* • 

TEMPI  MINUS 

TENP2 

D'rt.B 

0522 

1X1 

M 

21  0400 

r _ 

0568 

0525 

MU  V 

OrN 

56 

0526 

SUB 

0 

92 

0527 

JZ 

AOR 

CA  052E 

056C 

052A 

XRA 

A 

AF 



056F 

0528 

JMP 

AOR 

C 3 0530 

0570 

052E  MVI  . 

A 

, 3E  Q.l 

0 5 73 

* IP 

TENP2 

0530 

ORA 

A 

87 

0511 

J! 

AOR 

C A AAAA 

♦ LINE 

* CALL 

.♦  FAFM  .. 

Call  ao« 

* ENOPRM 

♦ I ■ 

Lxl  H 
MOV  Mr A 

♦ LINE 

* > 


74  

EXTFUNC 

THCHI _0L 

CO  0153 


TEMPI 


0557 


LX  I 
MOV 
MV  I 
SUB 
JP 
XR  A 
jr;p 
MV  1 

♦ IF 
ORA 
J 2 

♦ LINE 

♦ RETURN 
RETURN 

♦ ENOIE 


H 

A,M 

0 

0 

ADR 

A 

ADR 

A 

A 

A JR 


TEMPI 
21  04E4 
77 

75  

LCL  127  TEMPI 
21  04E4  ..... 
7E 

16  7F  

92 

F 2 0551 

AF 

C 3 C 553 
3E  01 
TEMPI 
67 

CA  A AAA 


LCL 


75 

0 


C9 


♦ lOAO  CUT  CF  SECUtNCE 

EOU  , 0556 


* LINE 

* IF 

L X 1 H 
MOV  A.M 
OR.  A 
JZ  ADR 

♦ LINE 

♦ .C. 

L X I H 
MOV  A*  M 
Cma 

• ♦ 

MV  I 
ADC 

* l ■ 

LX  I 
MM  V 

* LINE 

* i • 

L X I H 
Mo V A.M 
LX  1 H 
MOV  M»  A 

* LINE 

* ENOIF 


0 

0 

H 

h.A 


76 

CUM  PL 
21  04  E 6 

- 71  _ 

87 

CA  A A A A 

76 
LCL 

21  04  E 4 

7E ' - - - 

2F 

TEMPI  1 TEMP2 
16  Cl 
F2 

TEMP2 
21  04E4 
77 

77 

FALSE 
21  0407 
7E 

21  C4E6 
77 
70 


TEMPI 


LCl 


COMF1 


IBIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
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I 


! 

1 

f 


• LINE  79 

* Aft YLOC  VECTOft  COL  TEMPI 

C57*  rt V ».  B C6  00 

0376  LX  t H 21  0*E7 


057* 

0570 

057E 

057F 

0582 

LHLO  ADR 
0*0  8 
PUSH  H 
♦ i • 

L X I H 

NOV  A > N 

2A  0*E9 

09  

E5 

LCL  ..  TEMPI 

21  0*  E* 

7E 

0583 

POP  H 

El 

058* 

NOV  M/ A 

77 



♦ LINE 

EO 

♦ ♦ 

COL  1 TEMPI 

0585 

LX  I H 

21  0*E7 

0588 

NOV  A/M 

7E 

0569 

NVI  0 

16  01 

0588 

*00  0 

82 

♦ t • 

TEMPI 

COL 

05  PC 

LX  1 H 

21  05E7  _ 

058  F 

MOV  M/A 

77 

# - 

.CNT  l T CMP! 

0590 

LX  I H 

21  0*E8 

0593 

NOV  A/M 

7E 

059* 

NVI  0 

16  01  * 

0596 

SUB  0 

92  

♦ 1 ■ 

TEMPI 

CNT 

0597 

LX  I H 

. 21 _0*£B 

059  A 

NOV  M/A 

77 

• LINE 

81 

♦ IF 

CNT 

0598 

L X I H 

21  0*EB 

059E 

MOV  A/M 

7E 

059T 

LR*  A 

87 

05*0 

JZ  AOR 

CA  AAAA 

♦ LINE 

81  

♦ CALL 

EXTPRCC 

0 

♦ FARM 

CHCUT 

0 

ft  FARM 

COMMA 

0 

05*3 

L X I H 

21  0503 

05*6 

MOV  C/M 

*E 

05*7 

PUSH  8 

C5 

* ENOPRM 

05*8 

POP  8 

Cl  . 

05*9 

MOV  A/C 

79 

OJA  A_ 

CALL  AOR 

CO  00A6 

« ENOIF 

♦ LOAD  OUT  OF'SECUENCE 
OJA  1 _E0U  . 0 JAO 


LINE  82  

• ENOWH 

"♦  LCAO  OUT  Of  SEQUENCE 
OJOf EOU  _ 0580 

0 JAO  JHP  . AOft C3  0J09 

* LINE  BJ 

_*  HE  TUAN  V* 

0580  BE  T'JRH  C9 


••••  ftftOC  PRINT VECTOR  *♦••  

• LOCAL  LCL 

0JE1  EOU  00 

• LOCAL  CNT 

0382 ECU OQ 

* VAL  ft Aft M ftTft 

0 J6J  EOU  00  

• REF  ft ABU  VECTCR 

0585  EOU  0000  _ . 

* SAVE  RETURN  AOOR 

0586  _ FOR  0 01. 

* PUT  VALUES  IN  BARNS 


0587 

POP  8 

Cl  _ _ _ 

0588 

LX  I H 

21  0383 

0588 

MOV  M/C 

71 

05BC 

POP  H 

El 

0580_ 

SHLO  AOR 

22  058*  

* PUT  RETURN  AOOR  BACK  ON  STACK 

05C0 

PUSH  0 

05  . _ . 

* LINE 

87 

♦ t ■ 

N CNT 

05C1 

L X I H 

21  0*05 

05C*  . 

MOV  A/M 

7E  . . 

05C  5 

LX  1 H 

21  0382 

05C8 

MOV  M/A 

77 

♦ LINE 

88 

ft  CALL 

EXTPROC  0 

ft  FARM 

CRLF  0 

. . _ 

* FARM  .... 

0 ...  . 0 

05C9 

MVI  C 

OE  00 

05CB 

PUSH  8 

C5 

♦ ENOPRM 

05CC 

POP  B 

Cl 

C5CD 

MOV  ’A/C 

79 

C5CE-. 

CALL  AOR. 

CO  0181 

* LINE  89 

♦ WHILE  ’0 


♦ WHTEST  CNT 


0*01 

L X l 

H 

21  0582 

050* 

MOV 

A/M 

7E 

0505.. 

ORA 

A 

_ 87  . 

0506 

JZ 

AOR 

CA  AAAA 

♦ LINE 

90 

* ARVLOC 

VECTOR  PTR  TEMPI 

C5C5 

MVI 

0 

06  00 

0508 

L X I 

H 

21  0583 

CSCE 

MOV 

C/M 

5E  ......... 

05CF 

LHLO 

AOR 

2A  0585 

05E2 

OAC 

8 

09. 

05E3 

PUSH 

H 

E 5 

# I ■ 

TEMPI  LCL 

05E5 

POP 

H 

Cl 

0515 

MOV 

A.H 

7E  

0516 

LX  1 

H 

21  0581 

C5E9 

MLV 

M/A 

77 

• LINE 

91 

ft  .A 

• 

LCL  128  TEMPI 

05E  A 

LX  1 

H 

21  0581 

05ED.. 

MOV  . 

A/H. 

....  7E  . . 

0 5b  E 

MVI 

0 

16  80 

05F0 

ANA 

0 

*2  . 

• I* 

TEMPI 

S ' 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
JOM  OOPY  EUKbilSHED  TO  I ©fi  — — 
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tJFJ 
05F8 
03F9  . 

05  F A 
05FB 
03FC 

• C4 

* PA 

• P 6 
1*1 
NOV 

_ PUSH 

♦ EN 
POP 
NOV 
CALC 

♦ il 

* .C 

\ 

LL 

RN 

RN  • 

H 

C»N 

8 

' . _ / * r 

. V ^ 

’ . -k 

EXTPRCC 

CHOUT 

NINUS 

21  0400 
4E 

CS 

* 'r''\  ‘ 

0 

_ 0 

0 

I* 

( 

C62A 

0620 

0621 

0627 
C630  _ 
0631 

C62E 

L * I H 
NUV  C#  H 
PUSH  8 

• ENOPRH 
POP  8 
NOV  . A#C 
CALL  ADR 

• ENOIF 

• LOAO  0 
EOU 

21  0403 

4£ 

CS 

Cl 

79 

OPRN 

8 

A »C 
AO* 
NE 

. Cl 

79 

CO  0046  . 

93 

LCL  TEMPI 

CO  0046 

ut  of  secuENce  

0634 

03FF  III 

H 

21  0381 

• LINE 

59 

0602 

NOV 

A,N 

7E 

♦ - 

CNT  1 TEMPI 

0603 

CN* 

2F 

0634 

LX  1 

H 

21  058  2 

* ♦ 

TENP1  1 TENP2  .. 

0637 

NOV 

A*  H 

7E 

0606 

NVI 

0 

16  01 

0638 

NVI 

0 

16  01 

0606 

400 

0 

82 

063A  _ 

SUB 

. D 

_ 92  • 

• »• 

TEPP2 

LCL 

♦ »• 

TEMPI  CNT 

06  07 

1*1 

H 

21  0381 

0638 

LX  1 

H 

21  0582 

0604 

NOV 

Nt  A 

77 

063E 

NOV 

H»  A 

77 

♦ LINE 

94 

A ♦ 

FTR  1 TEMPI  

* EISE1F 

063F 

LXI 

H 

21  0583 

C642  _ 

MOV 

A.N  7E 

♦ LOAO  GUT  CF  SEQUENCE 

064  3 

NVI 

0 

16  01 

OSF 1 

ECU 

ooor 

0645 

AOO 

0 

tz 

♦ S • 

TEMPI  PTR 

06CB 

JNP 

AO* 

C 3 A AAA 

0646 

LXI 

K 

21  0383 

♦ HUE 

95 

0649 

MOV 

M » A 

77 

* CALL 

E xTP»OC 

0 

* LINE 

100 

♦ FARM 

ChCUT 

0 

* ENOWH 

* FARN 

BLANK 

0 

00C» 

1*1 

H 

21  0401 

* LOAO  OUT  OF  SEOUENCE 

0611 

NliV 

C » N 

‘t 

0507 

EOU 

0640 

0612 

PUSH 

6 

C3 

♦ FNCPPM 

0644.. 

JNP 

AOR 

Cl  0301.. 

CO  1 3 

PUT 

8 

Cl 

* LINE. 

101 

C 6 1 4 

NCV 

A.C 

79 

* RETURN 

0 

06 1 5 

Cl.ll 

AOH 

CO  00A6 

0640 

RETURN 

C9 

♦ LINE 

96 

.. 

♦ LINE 

103  . ......  _ 

• ENOIF 

♦ ENOPRC 

♦ PROC.  . 

PR INTNATR I X 



♦ IJAO  OUT  CF  SEOUENCE 

otoc 

EOU 

0618 

#### 

PROC  PR1NTNATRIX  ♦♦♦♦.. 

♦ LOCAL  RCNT 

♦ LINE 

97 

064E 

EOU 

00  . 

♦ CALL 

EXTPRCC 

0 

• LOCAL  PTR 

* PARK 

ThC^Q 

Q 

064F- 

EOU 

00 

♦ P4PN 

LCL 

0 

• LINE 

105 

CMS 

L X I 

H 

21. 0581 

* 1 « 

N RCNT  

051B 

NOV 

C »N 

4E 

0650 

LXI 

H 

21  0403 

061C 

PUSH 

8 

C 5 

0653 

NOV 

A»M 

7E  . 

• ENOPRH 

0654 

LXI 

H 

21  064E 

0610 

PLP 

8 

Cl 

065  7 _ 

NOV 

H.A 

..  .77 

OelE 

NUV 

A,C 

79 

» 1 • 

0 PTR 

061F 

CALL 

AO* 

CO  C132 

0638 

NVI 

A . 

3E  00 

* LINE 

9E 

0654 

LXI 

H 

21  064F 

* IF 

CNT 

0630 

NOV 

N>  A 

>7... 

0622 

Lit 

H 

21  0382 

• LINE 

106 

0623 

NOV 

A.H 

7E 

♦ WHILE  .. 

0 

0626 

CAA 

A 

-’*87 

4 WHTEST 

RCNT 

0627 

42 

AO* 

CA  AAAA 

063E LI  I . 

H 

21  064E 

• LINE 

98 

AAAI 

NON 

A.N 

7* 

Bits  not  IS  BBT  WTOl*1  ra*cnc*H*  J.8 

UKM  QOi'i  lURMISHED  TO  DDC  


* CALL  PKINTVECfOK  0 

♦ PARM  H 0 


0666 

0669 

066A  _ 
0660 
066E 

066F 

LXI  H 
PUSH  H 

• PARM 
_LXI...  H 

MOV  C#M 
PUSH  B 

♦ ENOPRH 
CALL  AOR 

♦ LINE 

• - 

21  0*06 

EJ  

PTR  0 

21  06AF. 



*E 

C5  

. CO  03B6  

108 

_RCNT_1  TEMtl. 

— 

0672 

LXI 

H 

21  06*E 

0675 

MOV 

A»M 

7E 

0676 

NVI 

0 

16  01 

0678 

SUB 

0 

92  

♦ 1 • 

TEMPI 

RCNT 

0679 

LXI 

H 

. 21  06*p 

06  7C 

MOV 

M»  A 

77 

♦ LINE 

109 

* ♦ 

PTR  N TEMPI 

0670 

LXI 

H 

21  06*F 

C6E0 

MOV 

A»M 

7E 

066  1 

LXI 

H 

21  .0*05 

068* 

MOV 

0»M 

56 

0665 

AOO 

0 

62 

♦ t • 

TEMPI 

PTR 

0666 

LXI 

H 

21  06*F 

0669 

MOV 

M»  A 

77 

♦ LINE 

110  .... 

• ENOMH 

C6A  7 

MV1  A 

3t  01 

♦ IP 

TCP  P2 

06A  9 

ORA  A 

87 

06A  A 

J2  AOR 

CA  AAAA  . 

* LINE 

life 

- - 

— ♦ RETURN 

FALSE.  _ 

06  AO 

LXI  H 

21  0*07 

C680 

MOV  A,M 

7E 

06B1 

RETURN 

C9 

» LINE 

117 

* ELSE  IF 

* LOAD  OUT  OF  SEQUENCE 

06AB 

EOU 

C6B5 

0602 

JMP  AOR 

C 3 AAAA 

♦ LINE 

117  *" 

__ 

- ♦ RETURN 

TRUE 

068  3 

LXI  H 

21  0*06 

06B8 

MOV  A*  M 

7E 

0689 

RETURN 

C9 

....  . 

* LINE 

118 

♦ ENOIF 

* LOAD  OUT  OP  SEQUENCE 

0683 

EOU 

06BA 

♦ LINE 

120 

* ENOPRC 

— 

. * PROC  ... 

transform 

* L GAO  OUT  OP  SEQUENCE 

066*  EOU  0660 

06 6 A JMP  ADR  C 3 063E 

♦ LINE  111 

♦ RETURN  0 

C660  RETURN  C9 

• LISE  113 

* ENOFRC 

FRCC  . .OLERY 

fUNC  CUE  FY 


• LINE 

115 

.♦  CALL 

PRINT 

0 

* PARM 

UR 

0 

06EE 

LXI  H 

21  0*60 

0691 

PUSH  H 

E 5 

• PARM 

1* 

0 

0692 

MV  1 C 

OE  CE 

069* 

PUSH  B 

C3 

« E NOP  RM 

06*5 

CALL  ADR 

CO  0*A1 

« LIKE 

116 

• CALL 

EXTFUNC 

TEMPI 

♦ PARM 

CHIN 

0 

C698 

CALL  AOR 

CO  0009 

* ENOPRH 

• a 

.TEMPI  N C H ART £M fl 

06*8 

LXI  H 

i*  0*0* 

069  E 

nov  o#_n. 

56  



069F 

sue  o 

92 

***♦  PROC  TRANSFORM  ♦ ♦♦♦ 

• LOCAL  COL 

06BA  EOU  * 00 

* LOCAL  PTR 

0668..  ECU  00 

• LOCAL  l(i 

06BC  EOU  00 

♦ LOCAL  CCNT 

0680  EOU  00 

* LOCAL  RCW 

CtBE  EOU CO  

• LOCAL  RCNT 

06BF  EOU  CO 

• PEP  PARM  RE  SUL  TV 

06C0  EOU  0000 

♦ REP  PARM  OATAV 

06C2  EOU  0000  

♦ SAVE  RETURN  AOOR 

06C*  POP  0 01 


06C5 
06C6 
06C9 
06C  A 


♦ PUT  VALUES  IN  PARHS 
POP  H El 

SHLO  AOR  22  06C0 

POP  H El...  -. 

SHLO  AOR  22  06C2 


06C0  PUSH  0 OS  •‘CILOIt.SWM 

♦ LINE  122 

* »■  H RCNT  ' 

OfcCE_LXI_H 21  _0.*OS 

0601  MOV  A*H  7£ 

0602  .1X1  _H  ...21  06BF 

MOV  M«  A 7?  ' 


1-9 


IBIS 

IK#  COP* 


qpis&TX 


yUBHISHED 


xoddC 


i *>»•• 

t % a 

h 

cl  vout 

0608 

MOV 

N»  A 

77 

• la 

0 P TR  „ 

060C 

MVt 

A 

3E  00 

060E 

LX  I 

H 

21  0688  

06E1 

NCV 

H,A 

77 

• LINE  .. 

123 

* WHILE 

0 

* WHTEST 

RCNT 

06E2 

LX  I 

H 

21  068F 

06E9 

MOV 

A»M 

76  

06E6 

OR* 

A 

87 

. P6E.7._ 

. J2 .... 

AOR 

CA  AAAA 

* LINE 

12* 

* «• 

0 LCL 

C6E* 

NVI 

A 

3E  00 

06fC 

LXI 

H 

21  06BC 

06EF 

MOV 

M*  A 

77 

♦ t • 

N . CCNT 

06F0 

LXI 

H 

21  0*09 

047  3 

MOV 

*»M 

7E 

06(6 

LXI 

H 

21  0680 

06F7 

MOV 

M * A 

77 

* tm 

0 COL 

C6F  8 _ 

MV  t 

A 

3E  00 

06F* 

LXI 

H 

21  068 A » 

06F0 

MOV 

M»  A 

77 

* LINE 

129 

• WHILE 

0 

♦ WHTEST 

CCNT 

OtFE 

LXI 

H 

21  0680 

0701 

MCV 

A » H 

7E 

0702 

ORA 

A 

97 

0703 

J 2 

AOR 

C*  AAAA 

♦ LINE 

126 

♦ ARYIOC 

H P1R  TEMPI 

0706 

MVI 

8 06  00 

07C8 

LXI 

H 

21  0688 

07CB 

MOV 

C»H 

*E 

070C 

LXI 

H 

21  0*08 

0 7CF 

0*0 

8 

09 

0710 

MOV 

* #M 

7E 

« • 

TEMPI  262142.JLEHL2— 

0711 

MVI 

0 

16  FF 

0713 

SUB 

0 

92 

071* 

JZ 

AOR 

CA  0718 

0717 

XR  A 

A 

AF 

0718 

JMP 

ADR 

C 3 0710 

0718 

MVI 

*.  .. 

3E  01 

* IF 

TEMP2 

0710 

ORA 

A 

87 

071E 

JZ 

AOR 

CA  AAAA 

* LINE  127 

* ARUQC  tmv  CCl  TEMPI 

0 721  MV  I e OL  CO* 

0723  1*1  M 21  069* 

0726  HUV  C.N  *E 

0727  IHIO  AOR  2*  06C2 

072*  0*0  9 09 

0729  MOV  C#H  «E 

072C  _ PUSH.  B _C4^ 

* - ICl  TEMPI  TEMP2 

0720  . LXI_.H 21  OBBC 


* '•  TEP.P2  ICE 

073*  1X1  H 21  068C 

0737  MOV  N,A  77 

* LINE  128 

* EISEIF 

* LOAD  OUT  OP  SEOUENci 

OTlf  EOll  0738 


0738  JMP  ADR  C3  ***«  _ 

♦ LINE  129 

* ARTIOC  OAT*V  COL-TEMPJ. 

0739  MV  I 8 06  00 


0730 

1*1 

H 

21  068 A 

07*0 

MOV 

C*H 

*E 

07*1 

LHLO 

ADR 

2 A 06C2 

07** 

0*0 

8 

09 

07*9 

— MCV 

C,M 

- *E 

CT*6 

PUSH 
• ♦ 

9 

C 9 

LCL  TEMPI 

T6NP2 

07*7 

LXI 

H 

21  069C 

07*  A 

MCV 

A»M 

7E 

07*8 

POP 

8 

Cl 

07*C 

MOV 

0,C 

>1 

07*0 

*00 

* : • 

0 

92  . 

TEMP2 

LCL 

07  *E 

LXI 

H 

21  C6CC 

0791 

MOV 

M*A 

77 

* LINE  130 

* ENOIF  . . 


0739 


* LOAD  OUT  UP  SECIjtKCE 
ECU  072,2 


♦ LINE 

131 

« - 

... 

.CChl  1 TEMPI 
21  0680 

0762 

LXI 

H 

C755 

rev 

A»M 

7E 

0756 

MVI 

0 

16  01 

0758 

SUP 

0 

92 

* 1 a 

tempi 

CCNT 

C769 

LXI 

H 

..  21  C6B0  _ 

C79C 

MCV 

M>* 

77 

* LINE 

132 

« ♦ 

PTS  1 TEMPI 

C 7 SO 

LXI 

H 

21  0688 

CTtO 

HUV 

*»N 

7E 

0 741 

MVI 

0 

16  01 

0763 

*00 

0 

82 

♦ la 

TEMPI 

PTR 

076* 

1X1 

H 

21  OtOB 

C767 

MOV 

M»* 

77 

• ♦ 

CUL  1 TEMPI 

07lP 

LXI 

H 

21  06C A 

0768 

MOV 

A*  H 

7E 

0 7CC 

MVI 

0 

16  01 

076E 

*00 

0 

92 

• la 

tempi 

COL 

076F 

LXI 

H 

21  06BA 

0772L. 

MOV 

H#A 

. 77 

• LINE 

133 

— 

.•  I MOWN 

...  — - . 

_ ... 

( 

. 


. 


oiPTT,  best  quality  mmciM* 

^oitcoPY  flushed  to  ddc  — 


I-tO 


0773 

JHP  AOR 

C 3 G6f E 

♦ LINE 

199 

* LINE 

139 

* CALL 

INVECTOR  ....  ...  0 

♦ ARYLOC 

RESULTV  ROW  TEMPI 

P PARH 

OATA  0 

0776 

HVI  8 

06  00 

0789 

LX  l H 

21  0960 

0778 

LX  I H 

21  06BE 

0787 

PUSH  H 

E5 

0778  . 

HOV  C#M 

9E  ..  .. 

• ENOPRH 

077C 

LHLO  AOR 

2 A 06C0 

0788 

CALL  AOR 

CD  09EB 

F 0*0  B 09  

0 PUSH  H E9 

♦ «•  ICl  ...  TEMPI 

1 lx!  H 21  06BC 

l _ HOV At  M 7E 

5 PGP  H El 

6 MOV  M,A  77  

♦ LINE  139 

♦ - RCNT  1 TEMPI 

7 IXI  H 21  066F 

A HOV  A>H_  7E J_ 

B HVI  0 16  01 

D SUB  0 92  

P la  TEMPI  RCNT 

E 1X1  H 21  06BF  

1 HOV  H»A  77 

♦ ROW  1 TEMPI 

2 IXI  H 21  C6BE 

3 HOV  A,H  TE  *_  _ 

6 HVI  0 16  01 


..  • LINE 

* CALL 
« PARH 

0788  IXI  H 
0781 PUSH  N 

• PARH 
07BF  HVI  C 
07C 1 PUSH  B 

« ENOPRH 
07C2  CALL  AOR 
• LINE  . 

♦ CAU 

* ENOPRH 
07C9  CALI  AOR 

• IF 

C7C9  OPA  A 
07C9.J2  AOR 

• LINE 

♦ CAU 

• PARH 


199 

PRINTVECTOR 
CATA 
21  0960 

E9 1_ 

0 0 
OE  00  . .. 

C9 

CO  0986 

196. 

IUE*T 

CO  066 E 
TEMPI  ‘ 

87 

CA  AAAA 

197 

TRANSFORM 

DATA 


0798 

AOO  0 62  

37CC 

IX!  H 

21 

0960 

* «•  TEMPI  ROW 

07CF 

PUSH  H 

E 9 

0799 

LXI  H 21  068 E 

♦ PARM 

RESULT 

079C 

MCV  H » A 77 

0700 

IXI  H 

21 

0995 

• LINE  136  

0703 

PUSH  H 

E9 

* ENOWH 

* ENOPRH 



0709 

CAU  AUTt 

CO 

C6C9 

P LOAD  OUT  OF  SECUENCE 

♦ LINE 

196 

0 


06E6 EOU OtAO 

0790  JHP  AOR  C3  C6E2  

* LINE  137 

• RETURN  0 

OTAO  RETURN  C9 

• LINE 139 

♦ ENOPRC 

♦ PROC  HADAHARO 

PPPP  PROC  HADAHARO  

* LINE  191 

• CAU  PRINT 0 

♦ PARH  HEAO.ER  0 

07A1  IXI  H 21  0998  . 

07A9  PUSH  H E9 

• PARH  29  0 

07A9  HVI  C OE  18 

OTA?__PUSH  8 C# 

♦ ENOPRH 

07A8  CAU  AOR  CO  09A1 

* LINE  192 

• CAU  PRINTMATRIX J 

- * ENOPRH 

0?A»_CAU  AOIL—fO  JO.6.50 

* LINE  193 

• WHILE  0 

• VHT8ST  1 


♦ CAU.  ..PRINT  

♦ PARH  U/TMESS 

IXI  H 21  0980 

PUSH  H £9 

♦ PARH  12 

HVI  C OE  OC 

PUSH  E C9...  


0... 

0 


PUSH  H 

♦ PARH 
HVI  C 
PUSH  E 

♦ ENOFPM 
CAU  AOR 

♦ LINE 

♦ CAU 

♦ PARM 
IXI  H 
PISH  H 

♦ PARH 
HVI  C 

push  e 

9 Ff.OPPH 
CAU  AOR 

♦ LINE 
P ENOIF 


CO  C9A1 
199 

PRINTVECTOR 

RESULT 

21  0995  .... 


CE  00 
C5 

CD  0986 
190 


* LOAO  OUT  OF  SEOUENCE 
07C A ECU  07EB 


* LINE 

* CNOwH 


I 

I 

I 

[ 


IBIS  PASS  IS  BEST  QUALITY  PRACTICApM 
Igp#  COPY  PiPHISHBD  XOIffiS 


1-11 


07k.il  J*t>  AUK  C3  07AE 

. ♦ UNE  132 

• ESOPRC 

♦ ?TART  MADAM ARO 

07EE  RST  1 CF 


MAXIMUM  AOORESS  IS  07EE 
START  EXECUTION  AT  AOORESS  07A1 


IBIS  PAGE  IS  BEST  QUALt TY" PRACTICABLE 
JBPM  COPY  FURNISHED  TO  DI>Q  " 


1-12 


UV*  L0» 

J lfcC4C02020302C4EOE010001010101C101010101FF01F  F01FFC81E 

1 1604 160 IFFOlOlFFFFOlOlFFFFOlFFFFClOlFFFFOlOlO 1010 10030 
JUC42CFFFFFFFFC1FF01FFF F01F F01C 101 F f FF FF FFG1 0101F F 113E  . . 

U6C4 4 2F FO IF FO 10  IFF  000 ACA0A0A484 144 4 1404 15244 20404 10*60 
I 16045354524958000*0 AO AOCO A0A4F 4G3F 2028  4 E30<<F<IFZ9200R93 
SU04eE000*0«494E  30  5 5542C  56454  3544F  *>2000*0*000  *0  *520880 

jit04844353554C54CDOAo*ooooooooGocctcoccocoocooooooo64e  

i 17O49A0C000O00CCO0OC31C1219EO471E1229F04053E00219004O4F2 
t 1(048 1 772 19004  7E2 19E045692C AC0043E01B7C  *****06002190040095 

I 16C4C  94  E2A9F04094EC5C179CD*6002 190 04 7E 1601 6221 9D040C5E 

IC1040F770597  ... 

JC2C4C2E304Q947 

il704£OC3B204C9COC0000000000001E122E9040S216E04ESOE120C67  . 
11604F  70 5C0A 1042 10504 7E21E804773E0021E7047721E8047E008C 

I I £05008  70  A**  A3E0021E504  772 107C4 7E2 1E604 77C009002 10004.0080 
J 1605 255692C*2E0  5AFC330053E01 870  AAA A42106047E21E604008F 

1010538770593  ......  . 

102053230050*70 

;17053CCD530121E4047721E4047£167F92t2Sl05AF0353053ED100F3  

1C5055387C*****C906F6 

1020SS55805CAAF 

1 l 705582 l E604  7EB7C* A* AA21E404 7E2F 16018221 E404 7721070*0008 

10S056F7E21E604770774 

102055(74050*04 

S170574060021E7044E2AE90409E521E4G47EE17721E7047E16010070  

7 1 COS  83  622  IE  704  7721 E3047E IbO 1922  IE  804772 1(804 7EB 70  A* AAACFCO 
10*05*32 10 30 A A EC 50 17900*000099 3 
1020541*0050850 
I 02050F BCO 50*0 1 

1 17C5A0C 30905C9C00000000001C 12 18305 71E 1228*05052 105040CF5 

1 1 7050* 7E 21 8205 770E00C  50 1 790081012 1E205 7E87C AAA* A06C00F 35 

1 160508218 30 5* E2AB40509E5E I7c2 18 105 77218 1 057E 1680A20E23 
11605F  13 70 4****210009* EC  50 1790 0*60021 8 1057E2 FI  60 1820E0E 
1040607218105770759 
102C5F30ECE0003 

}C0C608C3****21C1044EC 50 17900*6000015 

• C2C60C  18  0600  26  •_ , 

11606182 -81054  EC  501 79C032012182057E87CAAAAA2103044EOEF 3 

1 06062EC SC  17900*60009*6  ...  

102C62834C6CC5E  • 

1 16063 42 13205 7E 1601 92218205772 1B3057E 160 182 218 305770006  ..  . 

1 02C 50  7400  tOC  26 

117CE44C30105C900C02105047E214E06773E00214F0677214E060BF7 

I 17C66 17c(7C *****2 108 04E 52 1 4F064 EC5C0et052  1 4E067E  16010EF 8 
1 120678922 14E0677214F067E210504 56822 14F067704E 8 
1 2206648 OGtOCF 3 

11606  6AC35E06C9216004E  50E0EC  SCO* 1040 009002 10404 56920F04 
11 206*00 **706*FC3*9063E0187C*****21C7C47EC90E01 

10205*335060062  

106368203****210 60471090*43 
) 0206838 *060 06 F 

1 17C 6? *0000000 0000000000 CC0C1E 122C0C6E122C2C60S2105040C35 
1 16060 17E219F06773E00218E06773EC021B90677218F067E870E0E 
11606E7C ***** 3E0021BC06772105047E 2 1R006773E002 18*060005 

1 1 606F 0772 1B006 7EE 70 *A***0t00ZlFe064E210804097E16FF0EC0 

1 17071 3920* 1807*FC310073E0187C*****0600218*064E2*C2060F79 
10E072A094EC521BC067EC 15 192218C 06770083  _ 

IC2071F1R070E5C 

* • . * * • I • 

1 100 7522 1U0C67E 1601 92218006772 16D067E 160182218806770(20 

I 080768218*06 7E 160182218*06770*03 

102070476070E7C 

I 17C773C IF E06060021BE064F2AC00609E521BC067EE177218F061007 
1 1 3078  A7E 160 198MBF  06772 18E067( 1601 8221 BE06 7700 79 

10206(8*0070(8*  . 

1 1707900 3(2060 92 14804( 50E 160 5C0A104C050063E01B7C  AAAAA120E 
I 1(0784218004(500(8042 16004(50(000 5008605008(06870*****1347 
1 UO 7002 18004E 5219504E5C0C4O62 18004E30EOCC5C041042 195041 146 

1 0 70  7E  4F.  5 OEOOC  *0066050826  

102070 *(8070F67 

|020762((070F*2  

I 0407(60 3AE07CFC* 36 

100  ...... 


practice 


I-t3 


.J  0791 


HAD AWARD  MATRIX 


ji 

01 

01 

01 

01 

01 

01 

01 


t 

-g 

‘2 

2 

-0 


0i 

21 

-gi 

-gi 

gi 

gi 

-gi 

-01 


gi 

-gi 

-gi 

gi 

gi 

-mi 

-01 

01 


01 

gi 

gi 

gi 

-0i 

-gi 

-gi 

-01 


t 

"2 

“2 

“2 

-0 


-0 

INPUT  VECTOR 

-ji,-g2.-p.-2S  21*  2!» 

-01 ( -02, -03* -04*  01,  02, 

OK?  <N=HO)T 

RESULT 


2 

2 

‘2 

“2 

0 


1.  01 
i.-gi 
1.-01 
i.  0i 
i.-gi 
1.  01 
. 01 
.-01 


g3,  2? 
03,  04 


00,  00,  00,  00,-14,  04,  08,  00 
INPUT  VECTOR 

00,  00.  00.  00.-14.  04,  08,  00 
00,  00,  00,  P0.-14,  04,  08,  00 

OK?  (N=NO)T 
RESULT 


-08,-10,-18,-20,  08,  10,  18,  20 
INPUT  VECTOR 


Votes  This^page  Is  a typed  duplicate  of  the  teletype  prist 
out  produoed  by  HAD AM  executing  on  the  UVA  Modular  Systea 
Intel  8080. 
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Appendix  II.  SIMPL  Quads  Used  by  SIMPL-M 


I£ 

Kane 

Quad  FI eld 8 

and  Typea 

» 

0 

LINE 

M 

n 

i 

s 

A = S,  I , T 

B = S,  I,  T 

R=T 

2 

<> 

H 

n 

n 

3 

< 

II 

it 

it 

4 

II 

n 

ii 

• 

5 

> 

II 

ii 

ii 

6 

>= 

ll 

it 

ii 

7 

♦ 

♦ 

II 

ii 

ii 

8 

- 

II 

ii 

ii 

9 

* 

II 

ii 

ii 

10 

/ 

II 

n 

ii 

11 

• A.  (bit  and) 

II 

• 

ii 

ii 

12 

.V.  (bit  or) 

II 

'ii 

n 

13 

• X.  (bit  xor) 

M 

ii 

ii 

14 

.RL.  (rt  log  ahlft) 

•1 

ii 

ii 

15 

.LL.  (If  log  ahlft) 

II 

ii 

ii 

16 

NEGATE 

A s S,I,  T 

• 

ii 

17 

.0.  (bit  ooopl) 

n 

ii 

18 

.NOT.  (logical) 

n 

N 

19 

.AND.  (logical) 

A s SfI,T 

B = S,  I, T 

R S 

T 

20 

•OB.  (logical) 

n 

H 

H 

30 

is  (b<£oaas) 

A = S,I,T 

R s 

S 

31 

IF 

4 = 3,1, T 

ID 

Name 

32 

ELSEI7 

33 

ENDI7 

34 

WHILE 

35 

WHTESI 

36 

ENDWH 

37 

INITCS 

38 

CSIEST 

39 

CASE 

40 

CSEND 

41 

CSELSE 

42 

ENDCS 

43 

CALL 

44 

PARM 

45 

ENDPRM 

46 

ARTLOC 

47 

START 

48 

RETURN 

49 

EXIT 

50 

PROO 

51 

ENDPRC 

• TsTeaporary,  Islaaediate,  S=SYMTAB  Ptr. 
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I 


i 


Appendix  III.  Typical  Quad  Sequences 
Motel  All  LINS  quads  have  been  omitted. 


IF  Statement i 

IF  DOG  = CAT  THEN 
FRUIT  1=  APPLE 
ELSE 

FRUIT  Is  0 

END 

Quads  Produced: 


ID 

A 

B 

R 

IF 

DOG 

TEMPI 

CAT 

Tempi 

:= 

ELSEIF 

APPLE 

% 

fruit 

Is 

END  IF 

0 

FRUIT 

i 


WHILE  Statement! 


CNT  Is 

10 

« 1 * 

..  WHILE 

CNT  DO 

• 

1 IF 

CNT  s OFF 

THEN 

EXIT  END 

CNT 

Is  CNT  - 

1 

END/  * WHILE*/ 

i Quads  Produced! 

i 

I ID 

A. 

£ 

R 

1 *= 

T0 

CNT 

WHILE 

0 

...  WHTEST 

CNT 

CNT 

OFF 

TEMPI 

IF 

- TEMPI 

EXIT 

f 

CNT 

1 

TEMP2 

! != 

TEMP2 

CNT 

SNDWH 

0 


Ill  -2 


: 1 

ID 

Ones 

A 

1 

R 

1 * 

- 

INDEX 

1 

. TEMPI 

(i 

CSIEST 

TEMPI 

CASE 

1 1 

CASE 

12 

1 . 

• mm 

CSEND 

10 

INDEX 

• 

CASE 

3 

1 

Is 

.0 

INDEX 

1 

CSEND 

CSSLSE 

1 

Is 

CSEND 

ENDCS 

8 

INDEX 

CASE  INDEX-1  OP 

>11££12>  INDEX  :=  10 
£3*  ~ ” INDEX  :=  0 
ELSE  INDEX  :=  8 

end/ *casb*/ 


Quad 8 Produced: 


PROP  Statement:  , 

PROC  ADDIT( INT  APPLE,  INT  WHICH,  REP  INT  DOG) 

Quads  Produced: 

ID  A B R 

OOC  ADDIT 

Note:  Parameters  must  be  sought  In  the  parameter/local 
chain  as  described  in  Section  2.2.3. 


f 
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CALL  Statement; 

CALL  ADDIT( FRUIT, LEAST (BOTH), ANIMAL) 


Note : 

LEAST  Is  a FUNC 

Quads  Produced: 

ID 

A B 

R 

CALL 

ADDIT 

PARM 

FRUIT 

0 

CALL 

LEAST 

TEMPI 

PARM 

ENDPRM 

BOTH 

0 

PARM 

TEMPI 

0 

PARM 

ENDPRM 

ANIMAL 

1 

Array  Reference;  All  array  references  produce  an  ARYLOC 
quad  which  assigns  the  array  location  or  value  to  a temp- 
orary. 


PILE( 12)  :=  HEAP(0)  ♦ 5 


Quad 8 Produced: 

ID 

A 

B 

R 

ISyloc 

HEAP 

0 

TEMPI 

♦ 

TEMPI 

5 

TEMP2 

ARYLOC 

PILE 

12 

TEMP3 

TEMP2 

TEMP3 
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The  following  quads  need  further  explanation: 


11 

Name 

Exnlanatlon 

0 

LINE 

A Is  the  line  number 

34 

WHILE 

A Is  the  designator  and  Is  Ignored 

38 

CSZEST 

R Is  data  type  and  Is  Ignored 

39 

CASE 

A Is  the  case  number 

43 

CALL  ' 

A Is  the  PROC/PUNC  and  R = temporary  for 
PUNC  and  0 for  PROC 

44 

PARM 

A Is  the  argument  and  R = 1 for  REF  and 

0 for  value 

47 

START 

A Is  the  main  PROC  or  0 If  none 

48 

RETURN 

A 1 8 STMTAfi  address  of  value  to  return  or 
0 If  none 

49 

EXIT 

A Is  the  designator  and  Is  Ignored 

50 

PROC 

A Is  the  PROC/PUNC 

I 


1 


l 


i 
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I Appendix  IV.  Procedure  for  Re-Complllng  SIMPL-M 

Step  1.  Compile  a new  version  of  CODGEN 


Job  Card 
UPDATE, N. 

REWIND, COMPILE. 

ATTACH, SIMPLT. 

REQUEST, COMP AS,  *PF. 

SIMPLT, S, COMPILE. 

CATALOG, COMPAS, CODGEN, RP=0. 
7/8/9 

♦DECK  CODGEN 
Source  Deck 
6/7/8/9 


Step  2.  Assemble  output  code  In  file  CODGEN,  merge  new 
code  generator  with  existing  SIMPLT  package,  merge  this 
with  overlay  structure,  and  save  this  as  the  new  SIMPLM 
compiler. 

J ob  Card 

ATTACH, COMPAS, CODGEN. 

COMPASS, L=0,  LrCOMPAS. 

ATTACH, LCL.SEPPLS. 

COPYL,  LCL,  LGO,  NEW. 

ATTACH, OVER. 

COPYL, OVER, NEW,  OVPLS. 

REQUEST, ABS,*PF. 

ATTACH, RSL. 

LIBRARY,  RSL. 

RPL, 75000. 

LOAD, OVPLS. 

NOGO, ABS. 

CATALOG, ABS,  SIMPLM. 

6/7/S/9 


Step  3.  The  SIMPL-M  compiler  can  now  be  utilized  with  the 
procedure  outlined  In  reference  2.  * 


i 


I 
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Appendix  V.  SIMPL-T  on  the  UVA  CPC  Cvbar  172 

SIMPL-T  as  It  Is  available  on  the  Cyber  172  Is  cumber- 
some In  that  It  produces  assembly  code  which  must  be  assem- 
bled ^before  It  can  be  executed.  See  reference  9 for  a 
complete  explanation  of  CPC  SIMPL-T. 

At  present  SIMPL-T  Is  only  available  on  tape.  Vhen 
SIMPL-T  becomes  available  as  a dish  file,  Step  1 will  not 
be  necessary. 


Step  1.  Read  SIMPL-T  and  its  library  from  tape. 

Operator  request  card 
Job  Card  - specify  MT1 
REQUEST,  OLDPL, VSN=SIMPLT, HY, NORING. 
RE'JIND,  OLDPL. 

REQUEST, SIMPLT, *PF. 

COPYBF, OLDPL, SIMPLT. 

CATALOG,  SIMPLT, RP=30. 

REQUEST, RSL,*PF. 

COPYBF, OLDPL, RSL. 

CATALOG, RSL,RP= 30. 

6/7/8/9  . ~ 
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Step  3*  Once  compilation  errors  have  been  eliminated, 

assemble  COMPAS. 

Job  Card 
ATTACH, COMPAS. 

COMPASS,  kz0, 1= COMP AS. 

LGO. 

S/7/8/9 


Appendix  VI.  SIMPL-M  User's  Manual 


SIMPL-M: 

A Structured  Programming  Language 
for  Microcomputers 

A User's  Manual 
by 

Janes  B.  Bladen 
. Victor  R.  Basili 
Albert  J.  Turner 


Prepared  for  the 

Computer  Science  Department  of  the  UNIVERSITY  OF  VIRGINIA 
ENGINEERING  SCHOOL,  Charlottesville,  Va.  22901. 


PREFACE 


i 


SIMPL-M  is  a member  of  the  SIMPL  family  of  languages  as  designed  by 
Victor  R.  Basili  and  Albert  J.  Turner  of  the  University  of  Maryland. 

This  user's  manual  is  based  on  their  manual  (1). 

The  SIMPL-M  compiler  is  implemented  on  the  UVA  CDC  Cyber  172  computer. 
The  original  CDC  implementation  of  SIMPL  was  written  by  John  G.  Perry,  Jr. 
of  Dahlgren  Labs,  Va.  Mr.  Perry's  system  is  an  implementation  of  SIMPL-T 
and  is  documented  in  (2) . 

The  SIMPL-M  compiler  runs  on  the  CDC  and  generates  machine  code  for 
the  Intel  8080  microcomputer.  Reference  (3)  gives  a thorough  explanation 
of  the  Intel  8080  assembly  and  machine  codes. 

The  loader  format  generated  by  SIMPL-M  conforms  to  the  requirements 
of  the  UVA  Modular  System  (4) . The  paper  referenced  in  (4)  is  reproduced 
in  Appendix  IV. 

Internal  documentation  of  the  SIMPL-M  code  generator  is  contained 
in  SIMPL-M: ' A Cross-Compiler  for  the  Intel  8080  Microcomputer,  a master's 
thesis  by  James  B.  Bladen  (5) . 
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1.  Introduction 

SIMPL-M  is  a cross-compiler  that  executes  on  the  CDC  6000  and  Cyber 
series  computers,  and  generates  Intel  8080  machine  code.  SIMPL-M  also 
produces  an  assembly  language  style  printout  which  lists  the  quads  gener- 
ated by  the  compiler  and  the  Intel  code  produced  for  each  quad.  The  current 
implementation  produces  a paper  tape  which  is  read  into  the  microcomputer 
via  a teletype  tape  reader  (See  Appendix  I for  a guide  for  executing 
SIMPL-M) . 

SIMPL-M  is  the  SIMPL-T  compiler  with  a new  code  generator  module 
substituted  for  the  CDC6000  module.  Since  the  Intel  8080  microcomputer 
has  greatly  reduced  capability  and  size  compared  to  the  CDC,  many  of 
the  features  offered  in  CDC  SIMPL-T  have  been  eliminated.  Some  new 
features  have  been  added  due  to  the  flexible  nature  of  microcomputers. 

1*1  Features  of  SIMPL-T  not  Supported  by  SIMPL-M. 

1.  Recursive  procedure  calls. 

2.  string  data  and  Partwords. 

3.  Files. 

4.  WHILE  descriptors. 

5.  Disk-resident  program  library. 

1.2  New  Features  Offered  by  SIMPL-M. 

1.  Start  load  specification.  Any  memory  address  can  be  declared  as  a 
starting  point  for  the  program  load.  The  default  is  address  zero. 

2.  Address  specification  for  external  subroutines.  Pre-programmed 
and  loaded  procedures  can  be  executed  by  specifying  the  address 
in  the  EXTFUNC  or  EXTPROC  procedure  call.  This  takes  advantages 
of  pre-programmed  modules  often  resident  in  the  PROM  of  micro- 
computers. . 

1.3  SIMPL-M  Restrictions. 

1.  The  only  data  type  is  integer. 

2.  Integers  must  be  in  the  range  -128  to  127  decimal. 

3.  The  only  data  structure  is  the  one-dimensional  array, 

4.  The  maximum  array  length  is  127. 


These  restrictions  apply  only  to  the  present  version  of  SIMPL-M. 
future  revisions  will  modify  them. 


2.  The  Basic  SIMPL-M  Language 


2.1  Program  Structure 

The  syntax  for  a SIMPL-M  program  is  illustrated  by 

^declaration  list>)  <segment  list>  START  <identifier> 

The  <declaration  list>  defines  the  varieties  that  may  be  used  anywhere 
in  the  program.  The  <segment  list>  is  a collection  of  procedures  (sub- 
routines) and  functions,  and  <identifier>  names  the  procedure  with  which 
execution  is  to  begin.  (The  <segment  list>  may  consist  of  only  a single 
procedure . ) 

The  following  example  illustrates  this  program  structure. 

INT  X,Y,Z  } declaration  list 

PROC  SUM (INT  A,  INT  B) 

Z.--A+B 

PRDC  MAINPROG 

segment  list 

X t-  3 
Y 4 

CALL  SUM (X,Y) 

START  MAINPROG 

Thus  a SIMPL-M  program  contains  a (possibly  empty)  set  of  global 
declarations  and  a set  of  procedures  and  functions.  Execution  begins 
with  one  of  the  procedures,  and  the  procedures  and  functions  are  called 
as  needed  during  execution. 

2.1.1  Declarations 

The  initial  declaration  list  of  a program  contains  declarations  for 
all  variable  identifier  names  that  are  global,  A global  identifier  is  an 
identifier  that  is  known  to  all  segments  of  a program. 

2. 1.1.1  Integer  Declaration 

An  integer  variable  may  have  any  integer  value  between  -128  and  127, 
inclusive.  An  integer  variable  declaration  consists  of  the  keyword  INT 
followed  by  one  or  more  identifier  names,  separated  by  commas.  Initializa- 
tion may  also  be  specified  as  illustrated  by  the  following  valid  declaration 


list 


I NT  X 

I NT  CAT,  D0G1 
INT  M*3,  N— 1,  I 


3 


In  the  above  example  M and  N are  initialized  to  the  values  3 and  -1, 
respectively.  This  means  that  these  variables  will  have  the  specified 
values  when  execution  of  the  program  begins.  The  value  of  an  uninitialized 
variable  is  initially  zero. 

2. 1.1. 2 Integer  Array  Declaration 

The  only  data  structure  in  SIMPL-M  is  the  one-dimensional  array. 

This  is  an  ordered  collection  of  elements,  all  of  the  same  data  type.  The 
tlMMnti  are  numbered  0,  1,  . . .,  n-1  , where  n is  the  number  of  elements 
in  the  array. 

Integer  array  declarations  begin  with  the  keywords  INT  ARRAY  , and 
are  completed  by  listing  the  array  identifiers  and  the  number  of  elements 
for  each  array.  The  number  of  elements  must  be  a positive  integer,  and  is 
enclosed  in  parentheses.  Fdr  example, 

INT  ARRAY  TOTALS (10) 

declares  an  array  of  10  elements:  TOTALS (0),  TOTALS  (!) ,... , TOTALS (9). 

An  array  can  also  be  initialized  by  specifying  a. list  of  values  for  the 
array  elements.  Initialization  begins  with  the  first ' element  (number  0)  and 
proceeds  until  the  list  is  exhausted  (or  all  array  elements  are  exhausted) . 

A repetition  factor  can  be  specified  by  enclosing  the  factor  in  parentheses 
following  the  initialization  value. 

Some  examples  are 

INT  ARRAY  A(3),  BAT(95),  VECTOR(20) 

INT  ARRAY  Al (10),  B(5)  - (2, 3,-1) 

INT  ARRAY  C(ll)  - (0,1,3 (9)) 

The  second  declaration  specifies  that  B(0)  , B(l)  , and  B(2)  are  to  be 
initialized  to  2 , 3 , and  -1  , respectively.  The  third  declaration 
initializes  C(0)  to  0 , C(l)  to  1 , and  C(2)-C(10)  to  3. 

See  Section  1.3  for  restrictions  on  SIMPL-M  arrays. 
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2. 1.1. 3 Declaration  List 


- 4 - 


A declaration  list,  such  as  the  list  of  global  declarations  at  the 
beginning  of  a program,  consists  of  one  or  more  declarations.  Declarations 
follow  one  another  with  no  separator  (except  blanks) . More  than  one  declara- 
tion for  the  same  type  can  appear  in  a declaration  list.  All  identifiers 
used  in  a program  must  be  declared. 

An  example  of  a declaration  list  is 

I NT  X,  Y 
I NT  I 

XNT  ARRAY  INPUTS  (20) , OUTPUTS (20) 

INT  SUM 


2.1.2  Segments 

A segment  is  a procedure  or  function  definition.  Segments  contain  a 
list  of  statements  to  be  executed  when  the  segment  is  invoked, 

2.1.2. 1 Procedures 

The  syntax  for  a procedure  definition  is  illustrated  by 

PROC  < identified  { (<parameter  list*)}  {<local  declaration  list>} 

<statement  list>  {RETURN} 

» 

where  <identif ied | is  the  name  of  the  procedure. 

• I 

An  example  of  a procedure  definition  is 

PROC  TEST  (INT  X,  INT  Y)  • 

/*  THIS  PROC  SUMS  X AND  Y */ 

INT  Z 


Z X+Y 

A procedure  is  a subroutine  that,  when  invoked,  executes  its  <statement  list> 
and  returns  to  .the  caller.  A procedure  may  access  any  global  identifier 
(unless  the  procedure  has  a local  identifier  by  the  same  name)  as  well  as  its 
local  identifiers  and  parameters. 


The  items  of  the  <parameter  list>  , separated  by  commas,  are  of  the 
form  INT  <identifier>  or  INT  ARRAY  <identifier>  . These  parameters  are 
passed  to  the  procedure  when  it  is  invoked  (called).. 


integer  parameters  are  passed  by  value  (unless  otherwise  specified  as 
2.3.7.  This  means* that  if  a procedure  changes  the  value  of  an  integer 
parameter,  the  new  value  is  affective  only  to  that  procedure.  For  example, 
if  procedure  P is  defined  by: 


PROC  P (INT  X). 
I NT  Y 
X »•  7 


I 

i 

I 

[ 

[ 

I: 


I 

I 

I 


I 


I 


c 

F 
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and  the  statements 

X :»  3 


CALL  P(X) 

Y t-  X 

are  executed,  then  Y will  become  3 (not  7) . 

Array  parameters,  however,  are  passed  by  reference.  Logically,  this 
nans  that  the  array  itself  is  passed  (rather  than  the  value  as  for  integer 
parameters) . Thus  any  modification  to  an  array  parameter  by  a procedure 
will  be  a modification  to  the  actual  array  passed  as  an  argument  by  the  caller. 


2.1.2. 2  Functions 

The  function  definition  syntax  is  illustrated  by 


INT  FUNC  <identifier>  { ^parameter  list>) ) local  declaration  list>} 
^statement  list>}  RETURN  «expression>) 

A function  is  similar  to  a procedure.  The  main  differences  are 

1)  the  value  of  <expression>  is  returned  (as  the  value  of  the  function 
evaluation)  to  be  used  in  the  same  manner  as  the  value  of  a variable 
would  be  used; 

2)  functions  may  not  have  side  effects,  that  is,  they  may  not  change  the 
values  of  any  nonlocal  variables  or  arrays, 

2. 1.2. 3  Local  Declarations 

All  local  variables  must  be  declared  in  the  local  declaration  list, 
local  declarations  are  similar  to  global  declarations,  but  initialization 
is  not  allowed.  (The  values  of  local  variables  at  first  entry  to  a seg- 
ment are  zero.) 


2.1.3  Scope  of  Identifiers 

Global  identifiers,  including  segment  names,  are  accessible  from  all 
segments  unless  a segment  declares  a local  with  the  same  name  as  a global. 
Local  declarations  override  global  declarations  so  that  a global  indenti- 
on* not  available^  to  a segment  in  which  that  identifier  is  declared 
local. 

local  identifiers  are  only  accessible  to  the  segment  in  which  they 
**•  declared.  Both  globals  and  locals  may  be  passed  as  parameters.  The 
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value  of  all  locals  is  undefined  at  entry  to  the  segment,  and  locals  do 
not  necessarily  retain  their  values  between  successive  calls  to  the  seg- 
ment. 

2.2  Comments  and  Blanks 

Blanks  may  appear  anywhere  in  a SIMPL-M  program  except  within  an 
identifier,  symbol,  keyword,  or  constant.  Blanks  are  significant  delimiters 
and  may  be  needed  as  separators  for  identifiers  or  constants.  For  example, 

IF  X 

and 

IFX 

are  not  equivalent. 

A comment  is  any  character  string  enclosed  by  /*  and  */  . a comnent 
may  appear  anywhere  that  a blank  may  occur  and  has  no  effect  on  the  execu- 
tion of  a program.  The  following  illustrates  a comment: 

/*  THIS  IS  A COMMENT.  */ 


2.3  Statements 

The  syntactic  entity  <statement  list>  denotes  any  sequence  of  SIMPL-T 
statements.  No  separators  (other  than  blanks)  are  used  between  statements. 


2.3.1  Assignment  Statement 


The  syntax  of  the  assignment  statement  is  given  by 
<variable>  :■  < express ion > 

where  <variable>  is  either  a single  variable  (i.e.,  an  integer  identifier)  or 
a subscripted  variable.  The  assignment  statement  causes  the  value  of  the 
<expression>  to  be  assigned  to  the  <variable>  . Examples  of  valid  SIMPL-T 
assignment  statements  are 

X Y+Z 
X t-  Y-Z 


A(I)  :■  A(f+l)+A(J-2)*X 


I 


2.3.2  If  Statement 

The  IF  statement  causes  conditional  execution  of  a sequence  of  one  or 


! 


! 

I 

i 

I 


- 7 - 

more  statements.  The  syntax  is 

IF  <expression> 

THEN  statement  list^ 

{ELSE  <statement  list>2)  END 

At  execution,  the  value  of  the  <expression>  determines  the  action  taken. 

If  the  value  is  nonzero,  <statement  list>1  is  executed  and  <statement 
liat>2  (if  there  is  an  else  part)  is  skipped.  If  the  value  is  zero, 
statement  list>2  (if  it  exists)  is  executed  and  statement  list^  is  not 
executed.  Execution  proceeds  with  the  next  statement  (following  END  ) after 
execution  of  either  <statement  list>  . 


X:-X+l 
Ys-Y-l 
IF  X>Y 

THEN 

X:-Y 

END 

END 

Note  that  the  ELSE  part  of  the  main  IF  statement  also  contains  an  IF 
statement  that  will  be  executed  only  if  the  ELSE  part  is  executed. 
Example. 

IF  X THEN  Y:-Y/X  ELSE  Ys-Y/2  END 

This  statement  divides  Y by  X if  X is  nonzero  and  divides  by  2 
if  X is  zero. 

2.3.3  While  Statement 

The  WHILE  stateS&nt  provides  a means  of  iteration  (looping) t 


WHILE  <expression>  DO  <stateaent  list>  END 
Th*  value  of  the  <expression>  determines  the  action  at  execution  time , just 
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! 
i 

as  for  the  IF  statement.  If  the  value  of  <expression>  is  nonzero,  then 
<statement  list>  is  executed;  otherwise  Statement  list>  is  skipped  and 
execution  proceeds  with  the  statement  following  END  . However,  if  state- 
ment list>  is  executed,  then  execution  proceeds  with  the  WHILE  statement  again. 
Thus  if  <expression>  is  nonzero,  then  Statement  list>  is  executed  until 
<expression>  becomes  zero. 

Example.  The  following  statement  list  sums  the  odd  and  even  integers 
from  1 to  100. 

ODD  :=  0 
EVEN  s-  0 
I s»  0 
WHILE  K100 
DO 

I 5-  1+1 

IF  1/2  * 2 - I 

THEN  /*  EVEN  INTEGER  */ 

EVEN  :■  EVEN  + I 
ELSE  /*  ODD  V 

ODD  ODD  + I 

I END 

! END 

2. 3. 3.1  Exit  Statement 

The  EXIT  statement  provides  a means  of  escaping  from  a WHILE  loop, 
i In  its  basic  form,  the  statement 


EXIT 


causes  the  immediate  termination  of  the  (innermost)  WHILE  statement 
containing  the  EXIT  statement.  Execution  proceeds  as  if  the  WHILE 

stateswnt  has  terminatedMnog^j^i 


< 
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I 

I 

I 

I 

l 


2.3.4  Case  Statement 

Exactly  one  of  a group  of  statement  lists  may  be  executed  by  using  the 
CASE  statement.  The  syntax  is  illustrated  by 

CASE  <expression>  OF 

Statement  list>i 
>n^>  <statement  list>2 


^n^>  <statement  list>k 

{ELSE  <statement  list>  END 

k+1 


where  each  n^,  n2,...,nk  is  a constant  or  a negated  constant. 


If  the  value  of  <expression>  is  n ^ , then  statement  list>^  is 
executed  and  the  other  statement  lists  are  not  executed.  If  <expression> 
does  not  evaluate  to  any  of  the  n^s,  then  the  ELSE  part  ( statement 
li»t>k+1)  is  executed,  if  there  is  an  ELSE  part,  and  none  of  the  state- 
lists  is  executed  if  there  is  no  ELSE  part.  The  cases  may  be  in  any 
order,  and  more  than  one  case  designator  n^  nay  be  used  with  the  same 
statement  list,  as  is  illustrated  in  the  following  example. 


Example 

CASE  X*Y+Z  OF 
_>1> 

X :*  3 

/*  CASES  NEED  NOT  BE  IN  ORDER*/ 
IF  X<Y 
THEN 


X t-  Y • 

END 

Y s m Y+L 

i<>6>  CASES  4 AND  6 COINCIDE  */ 
X s=  2 

Y !-  3 

ELSE 

5 f"**  0 


END 


- ■ - - * 


I 

1 

I 

l 


i 

I 


;{ 

i ' 


i 
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2.3.5  Call  Statement 

The  CALL  statement 

CALL  < identified  { (<argument  list>)} 
causes  the  procedure  named  <identifier>  to  be  executed.  Each  argument  in 
the  argument  list  may  be  an  expression  or  an  array,  and  the  arguments  must 
agree  in  number  and  type  with  the  parameters  in  the  procedure  definition 
for  the  procedure  that  is  called.  Arguments  in  <argument  list>  are  sepa- 
rated by  commas. 

Upon  completion  of  the  execution  of  the  procedure,  execution  resumes 
with  the  statement  following  the  CALL  statement. 

Example . To  invoke  the  procedure  DOIT  with  arguments  X+Y  and  the 
array  A , the  statement 

CALL  DOIT  (X+Y,  A) 


is  used.  „ 

2.3.6  Example 

PROC  SORT  (INT  N,  INT  ARRAY  R) 

/*  THIS  PROCEDURE  USES  A BUBBLE  SORT  ALGORITHM  TO  SORT  THE 
ELEMENTS  OF  ARRAY  'A’  INTO  ASCENDING  ORDER.  THE  VALUE  OF 
THE  PARAMETER  'N'  IS  THE  NUMBER  OF  ITEMS  TO  BE  SORTED.  */ 
INT  SORTED,  /*  SWITCH  TO  INDICATE  WHETHER  FINISHED  * / 

LAST,  /*  LAST  ELEMENT  THAT  NEED  TO  BE  CHECKED  */ 

I.  /*  FOR  GOING  THROUGH  ARRAY  */ 

SAVE  /*  FOR  HOLDING  VALUES  TEMPORARILY  */ 

IF  N>1 

THEN  /*  SORT  NEEDED  */ 

SORTED  i*»  0 /*  INDICATE  NOT  FINISHED  */ 

LAST  N-l  /*  START  WITH  WHOLE  ARRAY  */ 

WHILE  .NOT.  SORTED 

DO  /*  CHECK  CURRENT  SEQUENCE  FOR  CORRECTNESS  */ 

SORTED  !•  1 /*  ASSUME  FINISHED  V 
I «-  1 /*  INITIALIZE  ELEMENT  POINTER  */ 

WHILE  I <-  LAST 

DO  /*  COMPARE  ADJACENT  ELEMENTS  UP  TO  'LAST*  */ 


! 
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IF  A(I-l)  > A (Z) 

THEN  /*  OUT  OF  ORDER  */ 

SAVE  t-  A (I)  /*  INTERCHANGE  */ 

A Cl)  A(I-I)  /*  A (I)  AND  */ 

A(I-l)  s-  SAVE  /*  A(I-l)  */ 

SORTED  s«  0 /*  MAY  NOT  BE  FINISHED  */ 

END 

I :*  1+1 

END  /*  LOOP  FOR  COMPARING  ELEMENTS  */ 

/*  A (LAST),...,  ACN-1)  ARE  NOW  OK  */ 

LAST  :»  LAST  -I 

END  */  LOOP  FOR  CHECKING  CURRENT  SEQUENCE  */ 

END  /*  IF  N>1  */ 

..  /*  END  PROC  ‘SORT*  */ 

2.3.7  Parameter  Passing  by *Ref erence 

Procedures  may  communicate  scalar  (integer  or  string)  results  through 
the  parameters  passed  to  it  by  specifying  that  a parameter  is  a reference 
parameter.  Logically,  this  means  that  the  scalar  variable  itself  is  passed 
to  the  procedure  rather  than  the  value  of  the  variable,  just  as  for  array 

parameters.  Thus  a procedure  can  then  change  the  value  gf  a variable  in  a 
CALL  argument  list. 

A procedure  declares  a scalar  parameter  to  be  a reference  parameter  by 
means  of  the  keyword  REF  . The  following  program  illustrates  the  difference 
between  normal  parameter  passing  (by  value)  and  reference  parameters. 

INT  X,  Z-2,  M 

PROC  ADD1  (INT  X,  INT  Y) 

X j-  X + Y 

PROC  ADD2  (REF  INT  X,  INT  Y) 

X s-  X + Y 
PROC  MAIN 
X t-  3 

CALL  ADD1  (X,Z) 

M :«  X 

CALL  ADD2  (X,Z) 

H »•  X 
START  MAIN 
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This  program  would  set  M to  3 then  5 

Note  that  only  variables  (siaple  or  subscripted)  may  be  passed  by 
reference.  That  is,  netiher  constants  nor  expressions  (that  do  not  consist 
* variable  only)  may  be  passed  by  reference. 

Functions  may  also  have  reference  parameters. 

2.3.8  Return  Statement 

The  RETURN  statement  causes  a return  to  the  calling  procedure  or 
function.  It  may  be  any  statement  in  a segment.  The  form 

RETURN 

is  used  for  procedures,  and  the  form 
RETURN  (<expression>) 
is  used  for  functions. 

h function  FIND  which  attempts  to  find  a number  in  an  array  can  be 
written  to  illustrate  this  statement: 

INT  FUNC  FIND  (I NT  NUMBER,  INT  ARRAY  VALUES,  INT  SIZE) 

INT  I 
I 1 

WHILE  I <-  SIZE 
DO 

IF  VALUES  (I)  » NUMBER 
THEN  /*  FOUND  */ 

RETURN  (I) 

ELSE 

X ’*•  X ♦ 1 
END 

END 

RETURN  CO)  /•  NOT  FOUND  V 

w I 

/*  END  FUNC  ’FIND***  */ 

Note  that  the  last  statement  in  a function  need  not  be  a RETURN 
(<expression>)  if  the  structure  of  the  function’s  statement  list  is  such 


■SMIBIPMM 


I 
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that  a return  is  always  made  from  within  the  statement  list. 

2.4  Integer  Expressions 

An  integer  expression  represents  an  integer  value.  An  integer  ex- 
pression may  be 

1)  a scalar  integer  variable  (either  a simple  variable  or  a subscripted 
array  variable); 

2)  an  integer  constant; 

3)  an  integer  function  call; 

4)  an  integer  operation  (such  as  + or  -)  where  each  operand  may  also 
be  an  expression; 

5)  an  integer  expression  enclosed  in  parentheses. 

2.4.1  Subscripted  Array  Variables 

An  array  element  is  designated  by  following  the  array  name  with  a 
subscript,  enclosed  in  parentheses,  whose  value  designates  the  number  of 
the  array  element  to  be  used.  The  subscript  can  be  any  integer  expression. 
For  example 
A(3) 

designates  the  4th  element  of  array  A , while 
A(  X + A(Y)  ) 

designates  the  element  whose  number  is  the  value  of  X plus  the  value  of 
the  array  element  designated  by  A(Y)  . 

2.4.2  Function  Calls 

A function  call,  has  the  form 

<identifier>  { (<argument  list>)} 

* identified  is  the  name  of  the  function.  The  rules  for  ^argument 
list>  are  the  same  as  for  the  CALL  statement. 

2.4.3  Constants 

An  integer  constant  may  be  designated  by  any  sequence  of  decimal 
digits  representing  a valid  non-negative  integer  value.  Note  that  nega- 
tive constants  may  usually  be  used  where  desired  although  such  a constant 
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i*  formally  viewed  as  the  unary  minus  operation  on  a nonnegative  constant 
in  integer  expressions. 

Por  example,  the  following  are  valid  SIMPL-M  integer  constants. 

3 

127 

0 

2.5  Basic  Integer  Operators 

The  operators  described  in  this  section  all  have  integer  expressions 
as  operands  and  yield  an  integer  result.  Any  arithmetic  overflow  that 
occurs  in  a calculation  is  ignored. 

2.5.1  Arithmetic  Operators 

Addition  (+)  , subtraction  (-)  , and  multiplication  (*)  are  binary 
operators  with  the  usual  meaning.  The  integer  divide  (/)  operator  yields 
the  integer  quotient  of  its  operands.  Thus  if  the  result  of  X/Y  is  Q , 
then  X ■ Q*Y  + R , where  R is  the  resiainder  that  was  discarded  in  the 
integer  divide. 

The  unary  minu*  (-)  operator  yields  the  negative  of  its  operand. 

Note  that  the  expression  “3  is  formally  viewed  as  the  unary  minus  opera- 
tion on  the  constant  3 although  it  would  probably  be  logically  (and 
equivalently)  viewed  as  the  constant  "minue  three"  by  the  programmer.  There 
is  no  unary  plus  operator  in  S1MFL-M. 

2.5.2  Relational  Operators 

The  relational  operator*  are  equal  (-)  , not  equal  (<>)  , less  than  . 
* less  than  or  equal  (<■)  , greater  than  (>)  , and  greater  than  or 
(>■)  • The  expression  X-Y  has  value  1 if  X and  Y are  equal, 
and  value  0 otherwise.  The  remaining  relational  operators  are  similarly 
defined. 

Note  that  the  result  of  a relational  operation  always  has  value  1 or 
zero,  depending  on  whether  the  relation  is  true  or  false,  respectively. 

T***  relational  operators  can  also  be  denoted  by  .EQ.  , .NE.  , .LT.  , 

.LE.  , .GT.  , and  .GE.  , respectively. 
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2.5.3  Logical  Operators 

The  logical  operators  ,AND.  , .OR.  , and  .NOT.  are  defined  by: 
X.AND.Y  is  1 if  both  X and  Y are  nonzero,  and  is  0 other- 
wise X.OR.Y  is  0 if  both  X and  Y are  zero,  and  is  1 
otherwise  .NOT.X  is  1 if  x is  zero  and  is  0 otherwise 
As  is  the  case  for  relational  operations,  a logical  operation  always  yields 
the  result  1 or  0 . 

Note  that  the  logical  operators  yield  the  "natural"  result.  For  example, 
the  expression 

X<Y  .AND.  Y<2 

will  have  the  value  1 (i.e.,  will  be  "true")  if  y i3  both  greater  than 
X and  less  than  Z , and  will  have  the  value  0 (i.e.,  will  be  "false'’) 
otherwise. 


2.5.4  Precedence 


The  precedence  of  the  basic  integer  operations,  from  highest  to  lowest, 


i 

» 

f 

it 


.NOT.  - (unary) 

* / 

♦ - (binary) 

■ <>  < > <«  >* 


unary 

arithmetic 

relational 

logical 


The  order  of  evaluation  between  operators  of  equal  precedence  is  left  to 
right  (except  between  unary  operators,  which  is  right  to  left). 

As  an  example,  the  expression 

-A  + B + C*D 
would  be  evaluated  by 

(1)  negating  the  value  of  A 

(2)  adding  the  value  of  B to  the  result  from  Cl) 

(3)  multiplying  the  value  of  C by  the  value  of  D 

(4)  adding  the-jpesults  from  (2)  and  C3) 
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Parentheses  may  be  used  to  alter  the  normal  precedence.  Thus  (A+B)*C 
would  cause  the  values  of  A and  B to  be  added  and  the  result  to  be 
multiplied  by  the  value  of  C , ' 


2.5.5  Examples 

The  following  are  examples  of  valid  SIMPL-T  expressions. 


(1) 

X + 

Y/7  * 2 

(2) 

X<3 

.OR.  X>8 

(3) 

X>3 

.AND.  X+Y<10 

(4) 

X + 

(X\(Y+1)<500) 

X=*9 

and 

Y*>12  these  expressions  have  the  values 

(1) 

11 

(2) 

1 

(3). 

0 

(4) 

10 

* 

2.6  Identifiers 

Identifiers  (i.e.,  names)  in  SIMPL-M  may  be  any  string  of  letters  or 
digits  that  begins  with  a letter.  For  usage  in  an  identifier,  the  symbol 
$ is  considered  to  be  a letter.  Identifiers  are  used  tq  denote  variables, 
arrays,  procedures,  functions,  and  other  entities  in  a program.  All 
identifiers  used  in  a program  must  be  declared. 

There  is  no  formal  restriction  on  the  length  of  identifiers.  However 
identifiers  may  not  cross  the  boundary  of  a source  input  record  (e.g.,  card), 
so  that  there  is  an  actual  restriction  to  the  length  of  an  input  record 
(e.g.,  80  characters). 

Certain  reserved  words  (keywords)  may  not  be  used  as  identifiers  in  a 
SIMPL-M  program.  These  keywords  (such  as  IF  , INT  ) are  listed  in  Appendix 
III.  Due  to  the  special  meaning  given  to  these  keywords,  rather  disastrous 
results  may  occur  if  a keyword  is  used  as  an  identifier  in  a SIMPL-M  program. 
This  is  especially  true  of  keywords  used  in  declarations  (such  as  INT  , 

ARRAY  , PROC  ) . The  resulting  diagnostics  generated  by  the  compiler  may  nob 
be  too  helpful  for  usch  an  error,  primarily  because  the  progremmer  often 
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overlooks  this  type  of  error  as  a possible  cause  of  the  diagnostics. 
Since  many  keywords  are  used  for  more  specialized  features  of  the 
SIMPL-M  language,  the  list  in  Appendix  HI  should  be  consulted  before 
writing  a SIMPL-M  program. 


2.7  Basic  I/O 


There  is  no  pre-defined  I/O  for  SIMPL-M  (See  Sections  1.  and  1.2). 
Instead,  the  prograimner  can  specify  the  start  address  of  previously 
loaded  I/O  subroutines  anywhere  in  memory  above  location  127.  This  is 
done  by  declaring  EXTPROC  and  EXTFUNC  as  external  and  specifying  the 
procedure  start  address  as  a parameter. 


2.7.1  Function  EXTFUNC  (INT) 

EXTFUNC  performs  a function  call  to  the  address  specified  by  its 
parameter.  The  parameter  is  declared  as  a global  initialized  to  the  external 
subroutine  address.  EXTFUNC  assumes  the  external  procedure  will  return  its 
argument  in  the  8080  accumulator.  See  Example  2.7.3. 

2.7.2  Procedure  EXTPROC  (.INT, INT) 

EXTPROC  performs  a procedure  call  to  the  address  specified  by  its 
parameter  and  passes  its  second  parameter  to  the  subroutine  in  the 
accumulator.  The  first  parameter  is  declared  as  a global  initialized  to 
the  external  subroutine  address.  See  Example  2.7.3. 


2.7.3  Example 

EXT  INT  FUNC  EXTFUNC (INT) 

EXT  PROC  EXTPROC (INT, INT) 


INT  DOG-6,  CAT-3 

INT  GETA-Ht0167+/*GETA  IS  A PRE-LOADED  ROUTINE*/ 
/♦IN  PROM  WHICH  INPUTS  ONE  HEX*/ 
/•DIGIT  TO  THE  ACCUMULATOR*/ 
im  DIGOUT-Ht0143+/*DIGOUT  IS  A PRE-LOADED  ROUTINE*/ 
/•IN  PROM  WHICH  OUTPUTS  ONE  HEX*/ 
/•DIGIT  PROM  THE  ACCUMULATOR*/ 


J 
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PROC  TESTIO 

CALL  EXTPROC  (DIGOUT, DOG+CAT+l)/*WRITE  HEX  A*/ 

CAT  l-  EXTFUNC (GETA) /* INPUT  ONE  HEX  CHARACTER*/ 

/♦INPUT  AND  ECHO  ONE  HEX  CHARACTER*/ 

CALL  EXTPROC (DIGOUT , EXTFUNC (GETA) ) 

START  TESTIO 

3.  Start  Load  Specification 

The  Intel  8080  machine  code  can  be  loaded  starting  at  any  address 
in  memory.  This  is  done  by  putting  the  following  statement  as  the  very 
first  statement  in  the  input  deck. 

I NT  START LOAD- (start  address) 

Where  (start  address)  is  an  integer  constant  as  described  in  Section  4.1. 

* 

The  startload  address  must  be  in  the  range  0 to  65,535.  The  default  is 
address  zero.  The  memory  load  is  sequential  and  uninterrupted  from  the 
start  load  address. 

Examples 

I NT  STARTLOAD-Ht$4<M+ 

INT  STARTLOAD*  6$ 

4.  Additional  Language  Features 

4.1  Bit  Representation  for  Integer  Constants 

Integer  constants  may  be  specified  in  binary,  octal,  or  hexadecimal, 

«*  well  as  decimal.  However,  these  additional  representations  specify  the 
bit  pattern  for  the  word  in  which  the  integer  is  stored,  rather  than  the 
value  of  the  integer.  Thus  a maximum  of  7 bits  may  be  specified  for  the 
INTEL  8080. 

A bit  representation  consists  of  the  letter  B , 0 , or  H , followed 

by  the  binary,  octal,  or  hexadecimal,  respectively,  constant  enclosed  in  up 
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I 

I 


I 

I 

1 

r 


arrows.  (Embedded  blanks  are  permitted.)  For  example,  integer  value  23 
can  also  be  specified  by  any  of  the  following; 

B+10111+  B+010  111+ 

0+27+ 

H+17+ 

Trailing  zeros  may  conveniently  be  specified  by  ending  the  constant  in 
quotes  by  the  letter  Z followed  by  the  decimal  number  of  zeros  to  be  included 
For  example. 


B+11Z3+  - B+11000+ 

A bit  representation  may  occur  anywhere  in  a SIMPL-M  program  that  an 
integer  constant  may  occur. 

* 

4.2  Bit  Operators 

4.2.1  Shift  Operators 

There  are  two  shift  operators  in  SIMPL-M;  Left  logical  shift  (.LL. ), 
and  right  logical  shift  ( . RL. ) . These  are  binary  operators  that  are  used 
in  the  form.  • 

< integer  expression>  <shift  operator>  <shift  count> 

where  <shift  count>  is  an  integer  expression  whose  value  is  the  number  of 
bits  to  shift. 

4.2.2  Bit  Logical  Operators 

The  bit  logical  operators  complement  (.C.),  and  (.A.),  or  (.V,),  and 
exclusive  or  (.X.)  also  function  the  same  as  the  corresponding  INTEL  8080 
hardware  instructions.  Examples  are 
.C.  H+1E+  - H+E1+ 

B+110101+  .A.  B+11001+  B+010001+ 

B+110101+  .V,  "8+011001+  • B+111101+ 

B+110101+  .X.  B+011001+  - B+101100+ 
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4.2.3  Precedence 

Bit  complement  (.C.)  has  the  same  precedence  as  the  other  unary  operators 
but  the  binary  bit  operators  have  precedence  over  all  other  binary  integer 
operators.  Among  the  binary  bit  operators, -the  precedence  (highest  first)  is 


• 1*1#.  . RL. 

.A. 

.V.  .X. 


shift 

bit  logical 


4.3  Compiler  Options 

The  following  parameters  may  be  listed  on  the  SIMPL-T  execute  card  to 
specify  output. 

S Print  source  deck 

Print  Intel  8080  machine  code 
C Print  SIMPL  quads 

F Print  cross-reference  table. 

See  Appendix  A for  the  proper  format. 


4.4  Source  Program  Print  Commands 

The  following  commands  may  be  included  anywhere  in  a SIMPL-M  program  to 
control  print  format. 


/+  EJECT  +/ 

/+  SKIP  n +/ 

/+  PRINTOFF  +/ 
/+  PRINTON  +/ 


Jump  to  top  of  next  page. 
Skip  n lines 

Suppress  printing  between 
these  two  directives 


f 


? 


/ 


I 

I 

I 

I 
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Appendix  I. 

1.  Compile  a SIMPL-M  program  on  the  CDC  Cyber  172. 

Job  Card 
UPDATE, N. 

4 

REWIND, COMPILE. 

REQUEST , COMP AS , *PF  . 

ATTACH , S IMPLT , S IMPLM . 

SIMPLT,SLQ, COMPILE.  (See  Note) 
CATALOG , COMP AS , INTEL , RP-0 , 

7/8/9 

‘DECK  Program  Name 
Program  Deck 
6/7/S/9 

2.  Generate  a loader  tape  once  a SIMPU1  program  is  correct. 

Operator  Request  Card 
Job  Card 

REQUEST, PAPER, TP.  . 

ATTACH (TAPE30 , INTEL) 

UVALIB (PUNPAPR,P1, , , , ,P6) 

6/7/S/9 


Notes  Leave  off  L and  Q until  program  compiles  to  suppress  printout  of 
assembly  code  and  quads. 


Appendix  III  - Keywords 


The  following  are  reserved  keywords  and  may  not  be  used  as  identifiers 
in  a SIMPL-M  program. 


ARRAY 

DO 

EXT 

OF 

RETURN 

CALL 

ELSE 

FILE 

OTHER 

START 

CASE 

END 

FUNC 

PROC 

STRING 

CHAR 

ENTRY 

IF 

REC 

THEN  - 

DEFINE 

EXIT 

INT 

REF 

WHILE 

EXTPROC 

EXTFUNC 

STARTLOAD 

j l 
i 
B 
I 
I 

(il 

Jj  I 

I 
I 
I 

r 

i 
i 
i 
i 
i 
i 
i 

[ 


Appendix  IV  - UVA  MODULAR  MICROCOMPUTER  SYSTEMS  - BASIC  MONITOR 
Wesley  E,  McDonald,  James  H,  Ay lor 

INTRODUCTION 

The  monitors  which  are  available  for  the  various  microcomputer 
modular  systems  at  the  CSL  have  the  same  basic  instruction  set  common  to 
all.  The  methods  of  implementation  are  different  for  each,  although  this 
is  transparent  to  the  user.  A description  of  the  basic  monitor  is  presented, 
followed  by  a discussion  of  each  system's  particular  differences. 

BASIC  MONITOR  INSTRUCTION  SET 

There  are  five  instructions  to  the  monitor,  each  consisting  of  one 
letter;  the  first  letter  of  the  desired  function.  These  are; 

1)  Memory  Display  - M 

2)  Next  Memory  Display  ~ N 

3)  Jump  * j 

4)  Load  Hex  " L . 

5)  Proceed  - p 

Any  memory  location  may  be  altered  by  entering  a colon  and  the  new 
data  in  hexidecimal  immediately  following  the  monitor'1  s response  to  either 
M or  N.  For  example: 

. M 0Q00  AF  s CD 

will  result  in  location  0000  (which  had  AF1&  in  it)  being  changed  to  a CDlg. 

The  instruction  formats  are  presented  below.  Any  underlined  items 
are  characters  input  from  the  TTY.  Xs  denote  Hexidecimal  characters.  The 
groups  of  four  characters  specify  addresses  and  the  groups  of  two  characters 
specify  data  items. 

• M xxxx  xx  i xx 

• M xxxx  xx  CR  LF 
.N  xxxx  + 1 xx  : xx 
.N  xxxx  + 1 XX  CR  LF 
•J  xxxx  CR 

.P  CR 

.L  (LOAD  DATA  according  to  format) 
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LOAD  HEX 

The  load  hex  instruction  has  special  provisions  which  allow  communi- 
cation with  time  share  basic.  If  time  share  is  not  available,  ,L  still  will 
function  as  a paper  tape  loader.  The  paper  tape  format  is: 

LDR  xoff  CRLF  < CHECKS UM>  » 4 Hex  words,  or  2 Hex 

bytes.  The  sum  of  all  Hex  data  in 
line,  e.g.  BYTBS+ADDR+DATA 

! <BYTES><ADDR><DATA><CHECKSUM>CRLF  < BYTES >«#  of  bytes  of  hex  code  in 

line  not  to  include  the 

; <BYTES><ADDR><DATA><CHECKSUM>CRLF  checksum  bytes 

<ADDR>  * starting  address  of  data 

;<BYTES><ADDR><DATA><CHECKSUM>CRLF  <DATA>  consists  of  xx  2 hex  words 

of  data  * 1 Hex  Byte 

; 00  CRLF 

The  LDRXoff  CRLF  indicates  to  the  loader  that  data  will  follow. 

The  semi-colon  indicates  that  data  follows  immediately. 

An  end  of  record,  specified  by  a jOO  terminates  loading,  and  results  in 
termination  of  the  load  phase.  To  run  the  loaded  program,  execute  ,J  xxxx  CR, 
where  xxxx  is  the  starting  address  of  the  loaded  program. 

Time  Share  Interface 

If  the  time  share  interface  is  available  (consisting  only  of  a modem  C 
telephone)  the  monitor  provides  communication  with  it  through  the  .L  instruction. 

In  order  to  prevent  confusion,  the  monitor  will  not  speak  to  timeshare 
unless  in  the  .L  routine.  At  all  other  times,  the  monitor  is  in  a purely 
local  mode,  where  commands  and  prompting  are  sent  only  to  the  system  TTY. 

Once  in  the  .L  routine,  all  TTY  input  is  sent  to  the  modem,  and  all 
modem  input  is  sent  to  the  TTY,  allowing  the  use  of  the  microcomputer  system 
as  a straight  timesharing  terminal.  In  the  microcomputer  system  as  a straight 
timesharing  terminal.  In  the  event  that  the  LOADXX  program  on  basic  is 
executed,  the  monitor  will  automatically  load  the  data  coming  from  time  share 
into  RAM.  The  loaded  program  can  then  be  executed  through  a reset  and  the  ,J 
instruction. 


Program  Break  Points 

Each  monitor  is  arranged  so  that  particular  instructions  in  the 
machine  code  of  the  particular  microprocessor  will  cause  an  entry  into  the 
monitor.  Normally,  such  an  entry  preserves  the  stock  and  register  integrity. 
Nhen  a .P  is  executed,  the  monitor  automatically  returns  control  to  the 
calling  program  at  the  address  of  the  previous  break  point. 

Interrupts 

All  interrupts  in  the  modular  system  jump  through  the  monitor  to 
a trap  cell  in  RAM.  This  cell  is  initialized  by  the  monitor  to  jump  through 
the  breakpoint.  The  RAM  location  should  be  initialized  to  a jump  instruction 
to  the  interrupt  service  routine  for  special  interrupt  processing.  Note,  this 
is  not  an  indirect  jump.  The  program  counter  is  loaded  with  the  trap  cell 
address  and  the  processor  begins  execution  at  that  point.  Three  bytes  are 
allotted,  so  that  a jump  instruction  can  be  executed. 


SPECIAL  FEATURES  OF  THE  MODULAR  MICROCOMPUTER 


SYSTEMS  BASIC  MONITOR 


INTEL  8080 


I 

1 


Program  Break  Point: 


The  program  break  point  is  established  through  use  of 
the  RST  1 instruction.  Control  is  transferred  to  the 
routine  beginning  at  10  in  ROM.  All  processor  status 
and  registers  are  preserved  and  printed  out,  in  the 
following  order: 

XXXX  XX  XX  XX  XX  XX  XX  XX  XX 


Control  is  then  transferred  to  the  monitor,  which 
responds  with  the  prompting  dot.  Execution  of  ,P 
will  resume  program  execution. 


MOTOROLA  6800 


jrara  Break  Point 


The  program  break  point  is  established  through  use  of  the 
SWI  instruction.  Control  is  transferred  to  the  monitor  which 


responds  with  a prompting  dot.  All  processor  status  is  preserved 
Execution  is  continued  through  use  of  .P  , 


i 
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Appendix  VII.  CODOEN  Listing  — C+f/  'S'~*  3/'*<£*t 

4f4TL/PL*f'ri 

£%///*  /)P£,F/# 
*32**2- 
Pi  // 


z 

3 

9 

5 

6 

7 _. 


/•  THIS  PROGRAM  is  A COCE  GENERATOR  FOR  SIMPLM  WRITTEN  BY  JIN  BLAOEN  */ 
/♦  CF  THE  COMPUTER  SCIENCE  DEPT  OF  THE  OVA  SCHOOL  OF  ENGINEERING.  ♦ / 
/*  THE  PROGRAM  GENERATES  INTEL  BOBO  MICROCOMPUTER  MACHINE  CCOE  IN  A ♦ / 
/•  FORMAT  ACCEPTABLE  TC  THE  UVA  IMPLEMENTATION  GF  THE  INTEL  BOBO  LOAD-*/ 
/•  ER.  FURTHER  DOCUMENTATION  OF  THIS  PROGRAM  IS  AVAI!  ,LE  THROUGH  THE*/ 
/♦  COMPUTER  SCIENCE  DEPARTMENT  .809-929-7201, •/ 


9 EXT  1NT  UUPTNS#  FC-PTR#  FCPTR _ 

10  EXT  INI  ARRAY  SYFTAB 

11  ...  . EXT  FILE  STOAT  A*  STOUAO#  COMPAS 

12  EXT  STRING  FUNC  NAME « INT, INI  I 

13  - - ....  EXT  PROC  WRITECIE  ILE, STRING) 

19  EXT  PRCC  CLOSETS  I FILE  ) 


13 


16  INT 

17  

19 

19  ..  . 

20 

21 

22  . 

23  ... 

29 

25  . 

26 

27 

29 

29  ..  

30  INT  ARRAY  SAVET100)#  /*FGRWARD  AOORESS  STACK*/ 

i 1 QU  E I 9 0 ) » /♦POINTERS  ARE  OUEPTR# DE QPTR  */  _ 

32  NC(100)#(3#7(15)#5(3)#7(9)#0»0*7#7#5#7#7#5#3#1#1#3#3# 

33  1,1#3#3#1I3J,5»5,1#7,3(9)»1,3#5#7#7#3,3,0)  

39 

35  ...STRING  ARRAY  OUAOSI63I5B)  • ( 


36 

♦LINE  ♦, 

t • 

♦ # 

to 

*# 

t « tp 

t«a  t. 

♦ > t. 

37 

t»«  t. 

1* 

♦ » 

t- 

♦# 

ft  tp 

♦/  ♦# 

♦.A.  *. 

39 

*.V.  ♦, 

♦ .». 

♦ # 

».Rl. 

»» 

*.LL.  ♦# 

♦NEG  *• 

*.C.  ♦# 

39 

, * . NOT « ♦. 

♦ • ANO , 

♦ # 

*.QR. 

♦ , 

t.RAS.  *# 

*.LCS.  ♦» 

♦023  *j 

*0 

♦029  t. 

^ 8 CON  • 

♦ # 

♦INT 

♦# 

*.ABS.  *> 

♦ MAX  ♦, 

♦MIN  ♦, 

91 

*«•  f, 

♦IF 

♦ # 

♦ELSE  IF ♦ # 

♦ENOIF  ♦, 

♦WHILE  ♦# 

♦WHTEST*, 

92 

♦ENOWH  t. 

♦1NITCS*. 

♦CSTEST ♦, 

♦CASE  ♦# 

♦CSENO  ♦# 

♦CSELSE*# 

93 

♦ENOCS  ♦# 

♦CALL 

♦ » 

♦ PARH 

♦ # 

♦ ENOPRM*  # 

♦ ARYLCC ♦ # 

♦START  ♦, 

<8* 

♦RETURN*# 

♦ EXIT 

♦ # 

♦ PROC 

♦ » 

♦ENDPRC*# 

♦CONTRL*# 

♦053  ♦# 

93 

♦0EF2.RT.La 

_t.PlRI.02*.*. 

-♦TRACE 

_♦#_ 

^.STAMNTU. 

CONSTBIT  • B*1219*# 
ARY6IT  • 8*1213*#  .. 
PRCCSW«0» 

HAXCC.NST  ■ 127# 
MEMPTR  « -I, 

QUEPTR  *.39# 

SAVEPIR  • -L. 

ORGAGDR  ■ C# 

FLUSH  ■ 0# 

FUNCSW  • 0# 

10#  AFLAC,  A#  BF l AG# 
hlb,NAFLAG#NA#N8FLAG 
l CP  T I ON#  RQPTION# 


INI  TBIT  • 
PARHB1T  • 
FUNCBIT  • 
MINCONST 


8*1231*. 

8*1222*# 

0*17*, 

• -128# 


INTBIT 

REFBIT 

CHKSUM 


1. 

8*1225*# 

0. 


MOTEMP  ■ 1#  . 

DEOPTR  • 39#  

HALF  • 0*777777*# 

DUMMY#  , 

FF  • H*FF*» 

NUNWDS  • 0# 

6#  R F L AG#  R > /^CURRENT  OUAO  VALUES*/ 

»NB»NRFLAG#NR#  /*NEXT  CUAO  VALUES*/  

COP T ION#  OOPTICN  /*COMPILER  OPTIONS*/ 


MOARRAY  ■ 2# 

MOIMHEO  • 8*129*, 

LHALF  • 0*77777726*# 
♦OPTION# 

FFOO  • H*FFOO*# 

FFFF  • H*FFFF*# 


I I 


